Deck 1MU

5 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.1mu     +++|          IDENT  1MU,IMU
00002  M01S00002.1mu     +++|          PERIPH
00003  M01S00003.1mu     +++|          BASE   MIXED
00004  M01S00004.1mu     +++|          SST
00005  M01S00005.1mu     +++|*COMMENT  1MU - MAGNET AUXILIARY PROCESSOR.
00006  M01S00006.1mu     +++|          COMMENT COPYRIGHT CONTROL SYSTEMS INC. 1993.
00007  M01S00007.1mu     +++|          TITLE  1MU - MAGNET AUXILIARY PROCESSOR.
00008  M01S00008.1mu     +++|          SPACE  4
00009  M01S00009.1mu     +++|***       1MU - MAGNET AUXILIARY PROCESSOR.
00010  M01S00010.1mu     +++|*         G. S. YODER.       93/09/23.
00011  M01S00011.1mu     +++|          SPACE  4
00012  M01S00012.1mu     +++|***       *1MU* PERFORMS FUNCTIONS FOR MAGNET THAT DO NOT REQUIRE
00013  M01S00013.1mu     +++|*         HARDWARE ACCESS TO TAPE UNITS.
00014  M01S00014.1mu     +++|          SPACE  4
00015  M01S00015.1mu     +++|***       CALL.
00016  M01S00016.1mu     +++|*
00017  M01S00017.1mu     +++|*
00018  M01S00018.1mu     +++|*T RA+1   18/  *1MU*,1/0,5/ CP,36/  0

Figure RA+1

00019  M01S00019.1mu     +++|          SPACE  4
00020  M01S00020.1mu     +++|**        ASSEMBLY CONSTANTS.
00021  M01S00021.1mu     +++|
00022  M01S00022.1mu     +++|
00023  M01S00023.1mu     +++| QUAL$    EQU    1           DEFINE UNQUALIFIED COMMON DECKS
00024  M01S00024.1mu     +++|          SPACE  4
00025  M01S00025.1mu     +++|**        COMMON DECKS.
00026  M01S00026.1mu     +++|
00027  M01S00027.1mu     +++|
00028  M01S00028.1mu     +++|*CALL     COMPMAC
00029  M01S00029.1mu     +++|          QUAL   ATF
00030  M01S00030.1mu     +++|*CALL     COMSATF
00031  M01S00031.1mu     +++|          QUAL   *
00032  M01S00032.1mu     +++|*CALL     COMSCPS
00033  M01S00033.1mu     +++|          QUAL   DFS
00034  M01S00034.1mu     +++| QUAL$S   EQU    1           DO NOT QUALIFY *COMSDFS*
00035  M01S00035.1mu     +++|*CALL     COMSDFS
00036  M01S00036.1mu     +++|          QUAL   *
00037  M01S00037.1mu     +++|*CALL     COMSEJT
00038  M01S00038.1mu     +++|*CALL     COMSEVT
00039  M01S00039.1mu     +++|*CALL     COMSMSP
00040  M01S00040.1mu     +++|          LIST   X
00041  M01S00041.1mu     +++|          QUAL   MTX
00042  M01S00042.1mu     +++|*CALL     COMSMTX
00043  M01S00043.1mu     +++|          QUAL   *
00044  M01S00044.1mu     +++|          LIST   *
00045  M01S00045.1mu     +++|*CALL     COMSPFM
00046  M01S00046.1mu     +++|*CALL     COMSPIM
00047  M01S00047.1mu     +++|          QUAL   RSX
00048  M01S00048.1mu     +++|*CALL     COMSRSX
00049  M01S00049.1mu     +++|          QUAL   *
00050  M01S00050.1mu     +++|*CALL     COMSSSD
00051  M01S00051.1mu     +++|*CALL     COMSSRU
00052  M01S00052.1mu     +++|*CALL     COMSZOL
00053  M01S00053.1mu     +++|          SPACE  4
00054  M01S00054.1mu     +++|**        DIRECT LOCATION ASSIGNMENTS.
00055  M01S00055.1mu     +++|
00056  M01S00056.1mu     +++|
00057  M01S00057.1mu     +++| T8       EQU    16          TEMPORARY
00058  M01S00058.1mu     +++| T9       EQU    17          TEMPORARY
00059  M01S00059.1mu     +++| CN       EQU    20 - 24     CENTRAL MEMORY BUFFER
00060  M01S00060.1mu     +++| ED       EQU    25          EQUIPMENT DESCRIPTION
00061  M01S00061.1mu     +++| HP       EQU    26          HARDWARE PARAMETERS
00062  M01S00062.1mu     +++| EO       EQU    27          EST ORDINAL
00063  M01S00063.1mu     +++| ES       EQU    30          EXTENDED STATUS
00064  M01S00064.1mu     +++| DS       EQU    31          DEVICE STATUS
00065  M01S00065.1mu     +++| EI       EQU    32          ERROR ITERATIONS
00066  M01S00066.1mu     +++| WP       EQU    33          BID WINDOW POINTER (MTS/ATS)
00067  M01S00067.1mu     +++| BL       EQU    34 - 35     BLOCK COUNT
00068  M01S00068.1mu     +++| UP       EQU    36          USER OPTIONS, FLAGS
00069  M01S00069.1mu     +++| LG       EQU    37 - 40     LENGTH OF LAST GOOD RECORD
00070  M01S00070.1mu     +++| EP       EQU    41 - 42     ERROR PARAMETERS
00071  M01S00071.1mu     +++| EC       EQU    43          ERROR CODE
00072  M01S00072.1mu     +++| LT       EQU    44          LABEL TYPE, DEVICE TYPE, REQUESTED DENSITY
00073  M01S00073.1mu     +++| SP       EQU    45          SOFTWARE OPTIONS
00074  M01S00074.1mu     +++| FM       EQU    46          TAPE FORMAT AND NOISE BYTE DEFINITION
00075  M01S00075.1mu     +++| WC       EQU    47          CM WORDS PER PRU
00076  M01S00076.1mu     +++| OV       EQU    50          CHUNK COUNT - LONG BLOCKS
00077  M01S00077.1mu     +++| FO       EQU    51          FAST ATTACH FILE FNT ORDINAL
00078  M01S00078.1mu     +++| AM       EQU    52          FAST ATTACH FILE ACCESS MODE
00079  M01S00079.1mu     +++| RI       EQU    53 - 54     RANDOM INDEX
00080  M01S00080.1mu     +++| FA       EQU    57          LOCAL FNT ADDRESS
00081  M01S00081.1mu     +++| RS       EQU    60          RETURN STATUS
00082  M01S00082.1mu     +++| FN       EQU    61          FUNCTION NUMBER
00083  M01S00083.1mu     +++| MD       EQU    62          DRIVER MODE FUNCTION
00084  M01S00084.1mu     +++| PA       EQU    63          PARAMETER
00085  M01S00085.1mu     +++| PB       EQU    64          PARAMETER
00086  M01S00086.1mu     +++|          TITLE  MACROS.
00087  M01S00087.1mu     +++|**        OVERLAY CONTROL DEFINITIONS.
00088  M01S00088.1mu     +++|          NOREF  .I
00089  M01S00089.1mu     +++|          NOREF  .N
00090  M01S00090.1mu     +++| .I       SET    /MTX/MDFN*2
00091  M01S00091.1mu     +++| .N       SET    0
00092  M01S00092.1mu     +++| OVLB     MICRO  1,, 3M      BASE OVERLAY NAME
00093  M01S00093.1mu     +++| ENTRY    SPACE  4,10
00094  M01S00094.1mu     +++|**        ENTRY - DEFINE OVERLAY ENTRY POINT.
00095  M01S00095.1mu     +++|*
00096  M01S00096.1mu     +++|*
00097  M01S00097.1mu     +++|*         ENTRY  NAME
00098  M01S00098.1mu     +++|
00099  M01S00099.1mu     +++|
00100  M01S00100.1mu     +++|          PURGMAC ENTRY
00101  M01S00101.1mu     +++|
00102  M01S00102.1mu     +++| ENTRY    MACRO  NAME
00103  M01S00103.1mu     +++|          QUAL
00104  M01S00104.1mu     +++| NAME     EQU    *+1R".M"*10000
00105  M01S00105.1mu     +++|          QUAL   ".O"
00106  M01S00106.1mu     +++|          ENDM
00107  M01S00107.1mu     +++| FCN      SPACE  4,10
00108  M01S00108.1mu     +++|**        FCN - DEFINE FUNCTION PROCESSOR.
00109  M01S00109.1mu     +++|*
00110  M01S00110.1mu     +++|*
00111  M01S00111.1mu     +++|*         FCN    NAME,FUN
00112  M01S00112.1mu     +++|*
00113  M01S00113.1mu     +++|*         ENTRY  *NAME* = NAME OF FUNCTION PROCESSOR.
00114  M01S00114.1mu     +++|*                *FUN* = *COMSMTX* FUNCTION CODE.
00115  M01S00115.1mu     +++|
00116  M01S00116.1mu     +++|
00117  M01S00117.1mu     +++| FCN      MACRO  A,B
00118  M01S00118.1mu     +++|          LOC    .I/2
00119  M01S00119.1mu     +++|          ERRNZ  .I/2-B      ERROR IN FUNCTION PROCESSOR DEFINITION
00120  M01S00120.1mu     +++|          CON    A/10000,A-A/10000*10000
00121  M01S00121.1mu     +++| .I       SET    .I+2
00122  M01S00122.1mu     +++|          ENDM
00123  M01S00123.1mu     +++| OVERLAY  SPACE  4
00124  M01S00124.1mu     +++|**        OVERLAY - GENERATE OVERLAY CONSTANTS.
00125  M01S00125.1mu     +++|*
00126  M01S00126.1mu     +++|*
00127  M01S00127.1mu     +++|*         OVERLAY (TEXT)
00128  M01S00128.1mu     +++|
00129  M01S00129.1mu     +++|
00130  M01S00130.1mu     +++|          PURGMAC OVERLAY
00131  M01S00131.1mu     +++|
00132  M01S00132.1mu     +++| OVERLAY  MACRO  TEXT
00133  M01S00133.1mu     +++|          QUAL
00134  M01S00134.1mu     +++| .N       SET    .N+1
00135  M01S00135.1mu     +++| .M       MICRO  .N,1, 56789
00136  M01S00136.1mu     +++| .O       MICRO  1,3, "OVLB"".M"
00137  M01S00137.1mu     +++|          QUAL   ".O"
00138  M01S00138.1mu     +++|          TTL    1MU/".O" - TEXT
00139  M01S00139.1mu     +++|          TITLE
00140  M01S00140.1mu     +++|          IDENT  ".O",OVL    TEXT
00141  M01S00141.1mu     +++|*COMMENT  1MU - TEXT
00142  M01S00142.1mu     +++|          COMMENT COPYRIGHT   CONTROL DATA SYSTEMS INC. 1993.
00143  M01S00143.1mu     +++|          ORG    OVL
00144  M01S00144.1mu     +++|          LJM    *
00145  M01S00145.1mu     +++|          UJN    *-2
00146  M01S00146.1mu     +++|          ENDM
00147  M01S00147.1mu     +++|          TITLE  MAIN ROUTINES.
00148  M01S00148.1mu     +++|**        1MU - MAIN PROGRAM.
00149  M01S00149.1mu     +++|
00150  M01S00150.1mu     +++|
00151  M01S00151.1mu     +++|          ORG    PPFW
00152  M01S00152.1mu     +++|
00153  M01S00153.1mu     +++| IMU      RJM    PRS         PRESET
00154  M01S00154.1mu     +++|          RJM    UUF         UPDATE UNIT FLAGS
00155  M01S00155.1mu     +++|          RJM    CSJ         CHECK STAGING JOBS
00156  M01S00156.1mu     +++|          RJM    UDT         PROCESS UDT REQUESTS
00157  M01S00157.1mu     +++|          LDN    ZERL
00158  M01S00158.1mu     +++|          CRD    CM
00159  M01S00159.1mu     +++|          LDD    RA          CLEAR *1MU* ACTIVE
00160  M01S00160.1mu     +++|          SHN    6
00161  M01S00161.1mu     +++|          ADK    /MTX/APS
00162  M01S00162.1mu     +++|          CWD    CM
00163  M01S00163.1mu     +++|          MONITOR  DPPM      DROP PP
00164  M01S00164.1mu     +++|          LJM    PPR         RETURN TO PP RESIDENT
00165  M01S00165.1mu     +++| UDT      SPACE  4,10
00166  M01S00166.1mu     +++|**        UDT - PROCESS UDT REQUESTS.
00167  M01S00167.1mu     +++|*
00168  M01S00168.1mu     +++|*         ENTRY  (UDTA) = ADDRESS OF FIRST UDT ENTRY.
00169  M01S00169.1mu     +++|*
00170  M01S00170.1mu     +++|*         EXIT   (UDTA) = ADDRESS OF FIRST UDT ENTRY.
00171  M01S00171.1mu     +++|*
00172  M01S00172.1mu     +++|*         CALLS  AUA, UAD.
00173  M01S00173.1mu     +++|
00174  M01S00174.1mu     +++|
00175  M01S00175.1mu     +++|
00176  M01S00176.1mu     +++| UDT      SUBR               ENTRY/EXIT
00177  M01S00177.1mu     +++|          UJN    UDT6        CHECK  FIRST UNIT
00178  M01S00178.1mu     +++|
00179  M01S00179.1mu     +++|*         NORMAL COMPLETION EXIT.
00180  M01S00180.1mu     +++|
00181  M01S00181.1mu     +++| UDT1     LDN    /MTX/NCP    SET NORMAL COMPLETION
00182  M01S00182.1mu     +++|          UJN    UDT4        SET COMPLETION STATUS
00183  M01S00183.1mu     +++|
00184  M01S00184.1mu     +++|*         REQUEUE ON JOB ROLLED OUT EXIT.
00185  M01S00185.1mu     +++|
00186  M01S00186.1mu     +++| UDT2     LDN    /MTX/RJB    SET REQUEUE ON JOB ROLLED OUT
00187  M01S00187.1mu     +++|          UJN    UDT4        SET COMPLETION STATUS
00188  M01S00188.1mu     +++|
00189  M01S00189.1mu     +++|*         ERROR RETURN EXIT.
00190  M01S00190.1mu     +++|
00191  M01S00191.1mu     +++| UDT3     LDN    /MTX/ERR    SET ERROR STATUS
00192  M01S00192.1mu     +++|
00193  M01S00193.1mu     +++|*         SET REQUEST STATUS EXIT.
00194  M01S00194.1mu     +++|
00195  M01S00195.1mu     +++| UDT4     STD    RS          SET REQUEST STATUS
00196  M01S00196.1mu     +++|
00197  M01S00197.1mu     +++|*         UPDATE UDT.
00198  M01S00198.1mu     +++|
00199  M01S00199.1mu     +++|          LDN    0           DO NOT COMPLETE FET
00200  M01S00200.1mu     +++|          RJM    RCP         RETURN TO MAGNET CP
00201  M01S00201.1mu     +++|          RJM    UAD
00202  M01S00202.1mu     +++|          ADK    /MTX/UST2   UPDATE UDT PARAMETERS
00203  M01S00203.1mu     +++|          CWM    EI,TR
00204  M01S00204.1mu     +++|          CWM    DNCV,ON
00205  M01S00205.1mu     +++|          ADK    /MTX/UXRQ-/MTX/UST5-1  SET RESPONSE STATUS
00206  M01S00206.1mu     +++|          CWD    RS
00207  M01S00207.1mu     +++|
00208  M01S00208.1mu     +++|*         CHECK NEXT UNIT.
00209  M01S00209.1mu     +++|
00210  M01S00210.1mu     +++| UDT5     RJM    AUA         ADVANCE UDT ADDRESS
00211  M01S00211.1mu     +++|          ZJN    UDTX        IF END OF UNITS
00212  M01S00212.1mu     +++| UDT6     RJM    UAD
00213  M01S00213.1mu     +++|          ADK    /MTX/UXRQ   GET REQUEST
00214  M01S00214.1mu     +++|          CRD    RS
00215  M01S00215.1mu     +++|          LDD    RS
00216  M01S00216.1mu     +++|          NJN    UDT5        IF REQUEST IN PROGRESS OR COMPLETE
00217  M01S00217.1mu     +++|          LDD    FN
00218  M01S00218.1mu     +++|          LPN    77
00219  M01S00219.1mu     +++|          SBN    /MTX/MDFN
00220  M01S00220.1mu     +++|          MJN    UDT5        IF NO REQUEST OR *1MT* REQUEST
00221  M01S00221.1mu     +++|          SHN    1           SET *TFCN* INDEX
00222  M01S00222.1mu     +++|          STD    CN
00223  M01S00223.1mu     +++|          SBN    /MTX/MFUN*2-/MTX/MDFN*2
00224  M01S00224.1mu     +++|          PJN    UDT5        IF NOT *1MU* REQUEST
00225  M01S00225.1mu     +++|
00226  M01S00226.1mu     +++|*         PROCESS REQUEST.
00227  M01S00227.1mu     +++|
00228  M01S00228.1mu     +++|          LDN    /MTX/RIP    SET REQUEST IN PROGRESS FOR RECOVERY
00229  M01S00229.1mu     +++|          STD    RS
00230  M01S00230.1mu     +++|          RJM    UAD
00231  M01S00231.1mu     +++|          ADK    /MTX/UXRQ   UPDATE REQUEST STATUS
00232  M01S00232.1mu     +++|          CWD    RS
00233  M01S00233.1mu     +++|          ADK    /MTX/UST1-/MTX/UXRQ  SET UDT CELLS
00234  M01S00234.1mu     +++|          CRM    ED,TR
00235  M01S00235.1mu     +++|          CRD    LT
00236  M01S00236.1mu     +++|          ADK    /MTX/UST5-/MTX/UST4
00237  M01S00237.1mu     +++|          CRM    DNCV,ON
00238  M01S00238.1mu     +++|          LDM    TFCN,CN     SET OVERLAY NAME
00239  M01S00239.1mu     +++|          ADC    2L"OVLB"
00240  M01S00240.1mu     +++|          RJM    EXR         LOAD OVERLAY
00241  M01S00241.1mu     +++|          LDM    TFCN+1,CN   SET ENTRY ADDRESS
00242  M01S00242.1mu     +++|          STD    T1
00243  M01S00243.1mu     +++|          LJM    0,T1        PROCESS REQUEST
00244  M01S00244.1mu     +++|
00245  M01S00245.1mu     +++|
00246  M01S00246.1mu     +++| TFCN     BSS    0
00247  M01S00247.1mu     +++|
00248  M01S00248.1mu     +++|          FCN    CUF,/MTX/CUF  COMPLETE USER FET
00249  M01S00249.1mu     +++|          FCN    MAB,/MTX/MAB  ISSUE MESSAGE AND ABORT REQUEST
00250  M01S00001.ns2773  +++|          FCN    CJE,/MTX/CJE  CHECK JOB ERROR FLAG
00251  M01S00250.1mu     +++|          FCN    PAF,/MTX/AFN  AUXILIARY PROCESSOR FUNCTION
00252  M01S00251.1mu     +++|
00253  M01S00252.1mu     +++|          LOC    *O
00254  M01S00253.1mu     +++|
00255  M01S00254.1mu     +++| NCPX     EQU    UDT1        NORMAL COMPLETION EXIT
00256  M01S00255.1mu     +++| RJBX     EQU    UDT2        REQUEUE ON JOB ROLLED OUT EXIT
00257  M01S00256.1mu     +++| ERRX     EQU    UDT3        ERROR RETURN EXIT
00258  M01S00257.1mu     +++| SRSX     EQU    UDT4        SET REQUEST STATUS EXIT
00259  M01S00258.1mu     +++|          TITLE  SUBROUTINES.
00260  M01S00259.1mu     +++| AUA      SPACE  4,10
00261  M01S00260.1mu     +++|**        AUA - ADVANCE UDT ADDRESS.
00262  M01S00261.1mu     +++|*
00263  M01S00262.1mu     +++|*         ENTRY  (UDTA) = CURRENT UDT ADDRESS.
00264  M01S00263.1mu     +++|*
00265  M01S00264.1mu     +++|*         EXIT   (A) .NE. 0 IF NOT LAST UDT ON ENTRY.
00266  M01S00265.1mu     +++|*                (A) = 0 IF LAST UDT ON ENTRY.
00267  M01S00266.1mu     +++|*                (UDTA) = NEXT UDT ADDRESS IF NOT LAST UDT ON ENTRY.
00268  M01S00267.1mu     +++|*                (UDTA) = FIRST UDT ADDRESS IF LAST UDT ON ENTRY.
00269  M01S00268.1mu     +++|
00270  M01S00269.1mu     +++|
00271  M01S00270.1mu     +++| AUA      SUBR               ENTRY/EXIT
00272  M01S00271.1mu     +++|          LDK    /MTX/UNITL
00273  M01S00272.1mu     +++|          RAM    UDTA
00274  M01S00273.1mu     +++|          LMC    0
00275  M01S00274.1mu     +++| AUAA     EQU    *-1         (UDT LWA+1)
00276  M01S00275.1mu     +++|          NJN    AUAX        IF NOT END OF UDT
00277  M01S00276.1mu     +++|          LDC    0           SET TO FIRST ENTRY
00278  M01S00277.1mu     +++| AUAB     EQU    *-1         (UDT FWA)
00279  M01S00278.1mu     +++|          STM    UDTA
00280  M01S00279.1mu     +++|          LDN    0           SET END OF UDT
00281  M01S00280.1mu     +++|          UJN    AUAX        RETURN
00282  M01S00281.1mu     +++| CCP      SPACE  4,10
00283  M01S00282.1mu     +++|**        CCP - CHANGE TO USER CONTROL POINT.
00284  M01S00283.1mu     +++|*
00285  M01S00284.1mu     +++|*         EXIT   (A) = 0 IF CHANGE MADE.
00286  M01S00285.1mu     +++|*                (A) .NE. 0 IF CHANGE NOT MADE.
00287  M01S00286.1mu     +++|*
00288  M01S00287.1mu     +++|*         USES   CM - CM+4, CN - CN+4, T1 - T1+4.
00289  M01S00288.1mu     +++|*
00290  M01S00289.1mu     +++|*         CALLS  UAD.
00291  M01S00290.1mu     +++|*
00292  M01S00291.1mu     +++|*         MACROS MONITOR.
00293  M01S00292.1mu     +++|
00294  M01S00293.1mu     +++|
00295  M01S00294.1mu     +++| CCP      SUBR               ENTRY/EXIT
00296  M01S00295.1mu     +++|          RJM    UAD
00297  M01S00296.1mu     +++|          ADK    /MTX/UVRI   GET EJT ORDINAL
00298  M01S00297.1mu     +++|          CRD    CN
00299  M01S00298.1mu     +++|          SFA    EJT,CN
00300  M01S00299.1mu     +++|          ADK    JSNE
00301  M01S00300.1mu     +++|          CRD    CM          GET JOB STATUS
00302  M01S00301.1mu     +++|          ADK    SCHE-JSNE
00303  M01S00302.1mu     +++|          CRD    T1          GET CP NUMBER
00304  M01S00303.1mu     +++|          LDD    CM+4
00305  M01S00304.1mu     +++|          LPC    176
00306  M01S00305.1mu     +++|          LMN    EXJS*2
00307  M01S00306.1mu     +++|          NJN    CCPX        IF JOB ROLLED OUT OR INTERLOCKED
00308  M01S00307.1mu     +++|          LDD    T1+3        SET CP NUMBER
00309  M01S00308.1mu     +++|          ADK    RCMS+ALCS   SET MOVE REJECT AND ALTERNATE CP
00310  M01S00309.1mu     +++|          STD    CM+1
00311  M01S00310.1mu     +++|          MONITOR  CCAM      SET ACCESS TO USER CP
00312  M01S00311.1mu     +++|          LDD    CM+1
00313  M01S00312.1mu     +++|          NJN    CCPX        IF CHANGE NOT MADE
00314  M01S00313.1mu     +++|          AOM    RCPB        SET USER CP FLAG
00315  M01S00314.1mu     +++|          LDD    CP
00316  M01S00315.1mu     +++|          ADK    TFSW        VERIFY JOB EJT ORDINAL
00317  M01S00316.1mu     +++|          CRD    CM
00318  M01S00317.1mu     +++|          LDD    CM
00319  M01S00318.1mu     +++|          LMD    CN
00320  M01S00319.1mu     +++|          ZJN    CCP1        IF CORRECT JOB
00321  M01S00320.1mu     +++|          LDN    0
00322  M01S00321.1mu     +++|          RJM    RCP         RETURN TO MAGNET CP
00323  M01S00322.1mu     +++|          LDN    1           SET CHANGE NOT MADE
00324  M01S00323.1mu     +++| CCP1     LJM    CCPX        RETURN
00325  M01S00324.1mu     +++| HNG      SPACE  4,10
00326  M01S00325.1mu     +++|**        HNG - HANG PP ON SYSTEM ERROR.
00327  M01S00326.1mu     +++|*
00328  M01S00327.1mu     +++|*         MACROS MONITOR.
00329  M01S00328.1mu     +++|
00330  M01S00329.1mu     +++|
00331  M01S00330.1mu     +++| HNG      SUBR               ENTRY
00332  M01S00331.1mu     +++| HNG1     MONITOR  HNGM      HANG PP
00333  M01S00332.1mu     +++|          UJN    HNG1        HANG PP
00334  M01S00333.1mu     +++| RCP      SPACE  4,15
00335  M01S00334.1mu     +++|**        RCP - UPDATE ACCOUNTING AND RETURN TO MAGNET CONTROL POINT.
00336  M01S00335.1mu     +++|*
00337  M01S00336.1mu     +++|*         ENTRY  (A) = FET COMPLETION STATUS IF .NE. 0.
00338  M01S00337.1mu     +++|*                (A) = 0 IF NOT TO COMPLETE FET.
00339  M01S00338.1mu     +++|*                (RCPA) = SRU INCREMENT.
00340  M01S00339.1mu     +++|*                (RCPC) = BLOCKS SKIPPED COUNT.
00341  M01S00340.1mu     +++|*
00342  M01S00341.1mu     +++|*         EXIT   (RCPA) = 0.
00343  M01S00342.1mu     +++|*                (RCPC) = 0.
00344  M01S00343.1mu     +++|*
00345  M01S00344.1mu     +++|*         USES   CM+1 - CM+4.
00346  M01S00345.1mu     +++|*
00347  M01S00346.1mu     +++|*         MACROS MONITOR.
00348  M01S00347.1mu     +++|
00349  M01S00348.1mu     +++|
00350  M01S00349.1mu     +++| RCP      SUBR               ENTRY/EXIT
00351  M01S00350.1mu     +++|          STD    CM+4        SET FET COMPLETION STATUS
00352  M01S00351.1mu     +++|          SHN    -14
00353  M01S00352.1mu     +++|          LMC    0           SET SRU INCREMENT
00354  M01S00353.1mu     +++| RCPA     EQU    *-1         (SRU INCREMENT)
00355  M01S00354.1mu     +++|          STD    CM+3
00356  M01S00355.1mu     +++| RCPB     LDN    0
00357  M01S00356.1mu     +++|*         LDN    1           (ASSIGNED TO USER CP)
00358  M01S00357.1mu     +++|          ZJN    RCPX        IF NOT AT USER CP
00359  M01S00358.1mu     +++|          LDM    UDTA        SET UDT ADDRESS
00360  M01S00359.1mu     +++|          STD    CM+1
00361  M01S00360.1mu     +++|          LDC    0           SET BLOCKS SKIPPED
00362  M01S00361.1mu     +++| RCPC     EQU    *-1         (BLOCKS SKIPPED)
00363  M01S00362.1mu     +++|          STD    CM+2
00364  M01S00363.1mu     +++|          MONITOR  TIOM      CHANGE TO MAGNET CP
00365  M01S00364.1mu     +++|*         LDN    0
00366  M01S00365.1mu     +++|          STM    RCPA        CLEAR SRU INCREMENT
00367  M01S00366.1mu     +++|          STM    RCPC        CLEAR BLOCKS SKIPPED
00368  M01S00367.1mu     +++|          SOM    RCPB        CLEAR USER CP FLAG
00369  M01S00368.1mu     +++|          UJN    RCPX        RETURN
00370  M01S00369.1mu     +++| UAD      SPACE  4,10
00371  M01S00370.1mu     +++|**        UAD - SET UDT ADDRESS.
00372  M01S00371.1mu     +++|*
00373  M01S00372.1mu     +++|*         ENTRY  (UDTA) = UDT RELATIVE ADDRESS.
00374  M01S00373.1mu     +++|*
00375  M01S00374.1mu     +++|*         EXIT   (A) = UDT ABSOLUTE ADDRESS.
00376  M01S00375.1mu     +++|
00377  M01S00376.1mu     +++|
00378  M01S00377.1mu     +++| UAD      SUBR               ENTRY/EXIT
00379  M01S00378.1mu     +++|          LDD    RA
00380  M01S00379.1mu     +++|          SHN    6
00381  M01S00380.1mu     +++|          ADC    0           SET UDT ADDRESS
00382  M01S00381.1mu     +++| UDTA     EQU    *-1         (UDT ADDRESS)
00383  M01S00382.1mu     +++|          UJN    UADX        RETURN
00384  M01S00383.1mu     +++|          SPACE  4,10
00385  M01S00384.1mu     +++|**        COMMON DECKS.
00386  M01S00385.1mu     +++|
00387  M01S00386.1mu     +++|
00388  M01S00387.1mu     +++| EJT$     EQU    1           ASEMBLE EJT PROCESSOR
00389  M01S00388.1mu     +++| FNT$     EQU    1           ASSEMBLE SYSTEM FNT PROCESSOR
00390  M01S00389.1mu     +++| IFP$     EQU    1           ASSEMBLE REMOTE INITIALIZATION CODE
00391  M01S00390.1mu     +++|*CALL     COMPGFP
00392  M01S00391.1mu     +++|          SPACE  4,10
00393  M01S00392.1mu     +++|**        UDT DATA.
00394  M01S00393.1mu     +++|
00395  M01S00394.1mu     +++|
00396  M01S00395.1mu     +++|*         *UST5*.
00397  M01S00396.1mu     +++|
00398  M01S00397.1mu     +++| DNCV     BSS    1           DENSITY AND CONVERSION MODE
00399  M01S00398.1mu     +++| ERSC     BSS    1           ERROR SUB-CODE
00400  M01S00399.1mu     +++|          BSS    3           RESERVED
00401  M01S00400.1mu     +++|
00402  M01S00401.1mu     +++|
00403  M01S00402.1mu     +++|          USE    OVERLAY
00404  M01S00403.1mu     +++|
00405  M01S00404.1mu     +++| OVL      EQU    *+10        OVERLAY ORIGIN ADDRESS
00406  M01S00405.1mu     +++|          TITLE  ROUTINES OVERLAID BY FUNCTION PROCESSORS.
00407  M01S00406.1mu     +++| PRS      SPACE  4,10
00408  M01S00407.1mu     +++|**        PRS - PRESET PROGRAM.
00409  M01S00408.1mu     +++|*
00410  M01S00409.1mu     +++|*         EXIT   TO *PPR* IF NOT CALLED BY MAGNET.
00411  M01S00410.1mu     +++|*                (UDTA) = FIRST UDT ADDRESS.
00412  M01S00411.1mu     +++|*
00413  M01S00412.1mu     +++|*         CALLS  IFP.
00414  M01S00413.1mu     +++|*
00415  M01S00414.1mu     +++|*         MACROS MONITOR.
00416  M01S00415.1mu     +++|
00417  M01S00416.1mu     +++|
00418  M01S00417.1mu     +++| PRS      SUBR               ENTRY/EXIT
00419  M01S00418.1mu     +++|          LDD    CP
00420  M01S00419.1mu     +++|          ADK    JCIW
00421  M01S00420.1mu     +++|          CRD    CM
00422  M01S00421.1mu     +++|          LDD    CM+2
00423  M01S00422.1mu     +++|          LMC    MTSI
00424  M01S00423.1mu     +++|          ZJN    PRS1        IF CALLED BY MAGNET
00425  M01S00424.1mu     +++|          LDC    PRSA        * 1MU INCORRECT CALL.*
00426  M01S00425.1mu     +++|          RJM    DFM
00427  M01S00426.1mu     +++|          MONITOR  ABTM
00428  M01S00427.1mu     +++|          LJM    PPR         EXIT TO PPR
00429  M01S00428.1mu     +++|
00430  M01S00429.1mu     +++| PRS1     RJM    IFP         INITIALIZE FILE PROCESSORS
00431  M01S00430.1mu     +++|          LDD    RA
00432  M01S00431.1mu     +++|          SHN    6
00433  M01S00432.1mu     +++|          ADK    /MTX/UBUF   GET UDT POINTERS
00434  M01S00433.1mu     +++|          CRD    CM
00435  M01S00434.1mu     +++|          LDD    CM+4        SET UDT FWA
00436  M01S00435.1mu     +++|          STM    AUAB
00437  M01S00436.1mu     +++|          STM    UDTA
00438  M01S00437.1mu     +++|          LDD    CM+2        SET UDT LWA+1
00439  M01S00438.1mu     +++|          STM    AUAA
00440  M01S00439.1mu     +++|          LJM    PRSX        RETURN
00441  M01S00440.1mu     +++|
00442  M01S00441.1mu     +++|
00443  M01S00442.1mu     +++| PRSA     DATA   C* 1MU INCORRECT CALL.*
00444  M01S00443.1mu     +++| CCA      SPACE  4,15
00445  M01S00444.1mu     +++|**        CCA - CHECK CHANNEL ACCESS.
00446  M01S00445.1mu     +++|*
00447  M01S00446.1mu     +++|*         ENTRY  (A) = CHANNEL BYTE FROM EST ENTRY.
00448  M01S00447.1mu     +++|*                (T8) = UNIT FLAG MASK.
00449  M01S00448.1mu     +++|*                (T9) = UNIT FLAG BYTE INDEX.
00450  M01S00449.1mu     +++|*                (CN - CN+4) = EST ENTRY *EQAE* WORD.
00451  M01S00450.1mu     +++|*
00452  M01S00451.1mu     +++|*         EXIT   UNIT FLAG SET IN *TUAC* IF UNIT ACCESSIBLE ON CHANNEL.
00453  M01S00452.1mu     +++|*                (CM+3) = 0 IF UNIT ACCESSIBLE ON CHANNEL.
00454  M01S00453.1mu     +++|*                (CN - CN+4) = EST ENTRY *EQAE* WORD.
00455  M01S00454.1mu     +++|*
00456  M01S00455.1mu     +++|*         USES   CM+3, T1.
00457  M01S00456.1mu     +++|
00458  M01S00457.1mu     +++|
00459  M01S00458.1mu     +++| CCA      SUBR               ENTRY/EXIT
00460  M01S00459.1mu     +++|          STD    T1          SAVE CHANNEL BYTE
00461  M01S00460.1mu     +++|          SHN    -11
00462  M01S00461.1mu     +++|          LMN    4
00463  M01S00462.1mu     +++|          NJN    CCAX        IF NO CHANNEL ACCESS
00464  M01S00463.1mu     +++|          STD    CM+3        INDICATE UNIT ACCESSIBLE
00465  M01S00464.1mu     +++|          LDD    T1          SET CHANNEL NUMBER
00466  M01S00465.1mu     +++|          LPN    37
00467  M01S00466.1mu     +++|          STD    T1
00468  M01S00467.1mu     +++|          LDM    TUAA,T1     GET *TUAC* ADDRESS
00469  M01S00468.1mu     +++|          ADD    T9          SET BYTE ADDRESS
00470  M01S00469.1mu     +++|          STD    T1
00471  M01S00470.1mu     +++|          LDD    T8          SET UNIT FLAG IN *TUAC*
00472  M01S00471.1mu     +++|          RAI    T1
00473  M01S00472.1mu     +++|          UJN    CCAX        RETURN
00474  M01S00473.1mu     +++| CES      SPACE  4,20
00475  M01S00474.1mu     +++|**        CES - CHECK EQUIPMENT STATUS.
00476  M01S00475.1mu     +++|*
00477  M01S00476.1mu     +++|*         ENTRY  (T8) = UNIT FLAG MASK.
00478  M01S00477.1mu     +++|*                (T9) = UNIT FLAG BYTE INDEX.
00479  M01S00478.1mu     +++|*                (UDTA) = UDT ADDRESS.
00480  M01S00479.1mu     +++|*
00481  M01S00480.1mu     +++|*         EXIT   UNIT FLAG SET IN *TUAC* ENTRIES FOR CHANNELS WITH
00482  M01S00481.1mu     +++|*                  ACCESS TO UNIT.
00483  M01S00482.1mu     +++|*                UNIT FLAG SET IN *ACCM* IF UNIT ACCESSIBLE ON CHANNEL.
00484  M01S00483.1mu     +++|*                UNIT FLAG SET IN *ASGM* IF UNIT AVAILABLE FOR
00485  M01S00484.1mu     +++|*                  ASSIGNMENT.
00486  M01S00485.1mu     +++|*                UNIT FLAG SET IN *JBRO* IF JOB ROLLED OUT.
00487  M01S00486.1mu     +++|*
00488  M01S00487.1mu     +++|*         USES   CM - CM+4, CN - CN+4.
00489  M01S00488.1mu     +++|*
00490  M01S00489.1mu     +++|*         CALLS  CCA, UAD.
00491  M01S00490.1mu     +++|*
00492  M01S00491.1mu     +++|*         MACROS MONITOR, SFA.
00493  M01S00492.1mu     +++|
00494  M01S00493.1mu     +++|
00495  M01S00494.1mu     +++| CES      SUBR               ENTRY/EXIT
00496  M01S00495.1mu     +++|
00497  M01S00496.1mu     +++|*         GET UDT AND EST INFORMATION.
00498  M01S00497.1mu     +++|
00499  M01S00498.1mu     +++|          RJM    UAD
00500  M01S00499.1mu     +++|          ADK    /MTX/UXRQ   GET PP REQUEST
00501  M01S00500.1mu     +++|          CRD    RS
00502  M01S00501.1mu     +++|          ADK    /MTX/UST1-/MTX/UXRQ  GET EST ORDINAL
00503  M01S00502.1mu     +++|          CRD    ED
00504  M01S00503.1mu     +++|          ADK    /MTX/UVRI-/MTX/UST1  GET ASSIGNED EJT ORDINAL
00505  M01S00504.1mu     +++|          CRD    CN
00506  M01S00505.1mu     +++|          SFA    EST,EO
00507  M01S00506.1mu     +++|          ADK    EQDE        GET CHANNEL STATUS
00508  M01S00507.1mu     +++|          CRD    CM
00509  M01S00508.1mu     +++|
00510  M01S00509.1mu     +++|*         CHECK UNIT ACCESSIBILITY.
00511  M01S00510.1mu     +++|
00512  M01S00511.1mu     +++|          LDD    CM
00513  M01S00512.1mu     +++|          LPN    3
00514  M01S00513.1mu     +++|          LMN    DWES
00515  M01S00514.1mu     +++|          ZJN    CES3        IF UNIT *DOWN*
00516  M01S00515.1mu     +++|          LDD    CM+1
00517  M01S00516.1mu     +++|          RJM    CCA         CHECK PRIMARY CHANNEL ACCESS
00518  M01S00517.1mu     +++|          LDD    HP
00519  M01S00518.1mu     +++|          SHN    21-7
00520  M01S00519.1mu     +++|          PJN    CES1        IF NOT CTS UNIT
00521  M01S00520.1mu     +++|          LDD    CM+3
00522  M01S00521.1mu     +++|          ZJN    CES2        IF UNIT ACCESSIBLE ON PRIMARY CHANNEL
00523  M01S00522.1mu     +++| CES1     LDD    CM+2
00524  M01S00523.1mu     +++|          RJM    CCA         CHECK SECONDARY CHANNEL ACCESS
00525  M01S00524.1mu     +++|          LDD    CM+3
00526  M01S00525.1mu     +++| CES2     ZJN    CES5        IF UNIT ACCESSIBLE
00527  M01S00526.1mu     +++| CES3     LDD    RS
00528  M01S00527.1mu     +++|          NJN    CES4        IF REQUEST IN PROGRESS OR COMPLETE
00529  M01S00528.1mu     +++|          LDD    FN
00530  M01S00529.1mu     +++|          LPN    77
00531  M01S00530.1mu     +++|          ZJN    CES4        IF NO REQUEST
00532  M01S00531.1mu     +++|          SBN    /MTX/MDFN
00533  M01S00532.1mu     +++|          PJN    CES4        IF NOT *1MT* REQUEST
00534  M01S00533.1mu     +++|
00535  M01S00534.1mu     +++|*         REQUEUE *1MT* REQUEST ON INACCESSIBLE UNIT.
00536  M01S00535.1mu     +++|
00537  M01S00536.1mu     +++|          LDM    UDTA        SET UDT ADDRESS
00538  M01S00537.1mu     +++|          STD    CM+1
00539  M01S00538.1mu     +++|          LDN    0           DO NOT CHECK UNIT BUSY
00540  M01S00539.1mu     +++|          STD    CM+2
00541  M01S00540.1mu     +++|          MONITOR  TDRM      SET REQUEST IN PROGRESS
00542  M01S00541.1mu     +++|          LDD    CM+4
00543  M01S00542.1mu     +++|          ZJN    CES6        IF REQUEST NOT INTERLOCKED
00544  M01S00543.1mu     +++|          RJM    UAD
00545  M01S00544.1mu     +++|          ADK    /MTX/UXRQ   GET REQUEST
00546  M01S00545.1mu     +++|          CRD    RS
00547  M01S00546.1mu     +++|          LDK    /MTX/RAC    SET REQUEUE ON INACCESSIBLE UNIT
00548  M01S00547.1mu     +++|          STD    RS
00549  M01S00548.1mu     +++|          RJM    UAD
00550  M01S00549.1mu     +++|          ADK    /MTX/UXRQ   REQUEUE REQUEST
00551  M01S00550.1mu     +++|          CWD    RS
00552  M01S00551.1mu     +++| CES4     UJN    CES6        UPDATE JOB STATUS
00553  M01S00552.1mu     +++|
00554  M01S00553.1mu     +++|*         SET UNIT ACCESSIBLE.
00555  M01S00554.1mu     +++|
00556  M01S00555.1mu     +++| CES5     LDD    T8          SET UNIT ACCESSIBLE
00557  M01S00556.1mu     +++|          RAM    ACCM,T9
00558  M01S00557.1mu     +++|          LDD    CM
00559  M01S00558.1mu     +++|          LPN    3
00560  M01S00559.1mu     +++|          LMK    ONES
00561  M01S00560.1mu     +++|          NJN    CES6        IF UNIT NOT *ON*
00562  M01S00561.1mu     +++|          LDD    T8          SET UNIT ASSIGNABLE
00563  M01S00562.1mu     +++|          RAM    ASGM,T9
00564  M01S00563.1mu     +++|
00565  M01S00564.1mu     +++|*         CHECK JOB STATUS.
00566  M01S00565.1mu     +++|
00567  M01S00566.1mu     +++| CES6     SFA    EJT,CN      GET JOB STATUS FROM EJT
00568  M01S00567.1mu     +++|          ADK    JSNE
00569  M01S00568.1mu     +++|          CRD    CM
00570  M01S00569.1mu     +++|          LDD    CM+4
00571  M01S00570.1mu     +++|          LPN    77
00572  M01S00571.1mu     +++|          LMN    EXJS*2
00573  M01S00572.1mu     +++|          ZJN    CES7        IF JOB EXECUTING OR UNIT NOT ASSIGNED
00574  M01S00573.1mu     +++|          LDD    T8          SET JOB ROLLED OUT
00575  M01S00574.1mu     +++|          RAM    JROM,T9
00576  M01S00575.1mu     +++| CES7     LJM    CESX        RETURN
00577  M01S00576.1mu     +++| CSJ      SPACE  4,15
00578  M01S00577.1mu     +++|**        CSJ - CHECK STAGING JOBS.
00579  M01S00578.1mu     +++|*
00580  M01S00579.1mu     +++|*         USES   CM - CM+4, CN - CN+4, T0 - T7.
00581  M01S00580.1mu     +++|*
00582  M01S00581.1mu     +++|*         CALLS  STM.
00583  M01S00582.1mu     +++|
00584  M01S00583.1mu     +++|
00585  M01S00584.1mu     +++| CSJ      SUBR               ENTRY/EXIT
00586  M01S00585.1mu     +++|          LDD    RA          READ STAGE POINTER WORD
00587  M01S00586.1mu     +++|          SHN    6
00588  M01S00587.1mu     +++|          ADN    /MTX/TAJP
00589  M01S00588.1mu     +++|          CRD    T3
00590  M01S00589.1mu     +++|          LDD    T3          CHECK FOR ENTRIES
00591  M01S00590.1mu     +++|          STD    T5          (T5) = ENTRIES LEFT, (T6-T7) = FWA TABLE
00592  M01S00591.1mu     +++|
00593  M01S00592.1mu     +++|*         PROCESS NEXT ACTIVE STAGE JOB TABLE ENTRY.
00594  M01S00593.1mu     +++|
00595  M01S00594.1mu     +++| CSJ1     SOD    T5          DECREMENT COUNT
00596  M01S00595.1mu     +++|          MJN    CSJX        IF PROCESSED ALL ENTRIES
00597  M01S00596.1mu     +++|          LDD    T6
00598  M01S00597.1mu     +++|          SHN    6
00599  M01S00598.1mu     +++|          ADD    RA
00600  M01S00599.1mu     +++|          SHN    6
00601  M01S00600.1mu     +++|          ADD    T7
00602  M01S00601.1mu     +++|          ADD    T5
00603  M01S00602.1mu     +++|          CRD    CN          READ ACTIVE STAGE JOB TABLE ENTRY
00604  M01S00603.1mu     +++|          LDD    CN
00605  M01S00604.1mu     +++|          ZJN    CSJ1        IF NO ENTRY PRESENT
00606  M01S00605.1mu     +++|
00607  M01S00606.1mu     +++|*         SEARCH INPUT QUEUE FOR JOB.
00608  M01S00607.1mu     +++|
00609  M01S00608.1mu     +++|          LDK    QFTP        SEARCH INPUT QUEUE FOR JOB
00610  M01S00609.1mu     +++|          CRD    T0          READ TABLE POINTER
00611  M01S00610.1mu     +++| CSJ2     SOD    T2          DECREMENT OFFSET
00612  M01S00611.1mu     +++|          MJN    CSJ4        IF ALL ENTRIES CHECKED
00613  M01S00612.1mu     +++|          LDN    QFTE        ADVANCE QFT ADDRESS
00614  M01S00613.1mu     +++|          RAD    T1
00615  M01S00614.1mu     +++|          SHN    -14
00616  M01S00615.1mu     +++|          RAD    T0
00617  M01S00616.1mu     +++|          SHN    14
00618  M01S00617.1mu     +++|          LMD    T1
00619  M01S00618.1mu     +++|          ADK    JSNQ
00620  M01S00619.1mu     +++|          CRD    CM          READ JSN AND QUEUE TYPE
00621  M01S00620.1mu     +++|          LDD    CM+4
00622  M01S00621.1mu     +++|          SHN    -11
00623  M01S00622.1mu     +++|          LMK    INQT
00624  M01S00623.1mu     +++|          NJN    CSJ2        IF NOT INPUT QUEUE FILE
00625  M01S00624.1mu     +++|          LDD    CM
00626  M01S00625.1mu     +++|          LMD    CN
00627  M01S00626.1mu     +++|          NJN    CSJ2        IF NO MATCH
00628  M01S00627.1mu     +++|          LDD    CM+1
00629  M01S00628.1mu     +++|          LMD    CN+1
00630  M01S00629.1mu     +++|          NJN    CSJ2        IF NO MATCH
00631  M01S00630.1mu     +++| CSJ3     UJN    CSJ1        JOB FOUND IN INPUT QUEUE
00632  M01S00631.1mu     +++|
00633  M01S00632.1mu     +++|*         SEARCH EJT FOR JOB.
00634  M01S00633.1mu     +++|
00635  M01S00634.1mu     +++| CSJ4     LDK    EJTP        SEARCH EJT FOR JOB
00636  M01S00635.1mu     +++|          CRD    T0          READ TABLE POINTER
00637  M01S00636.1mu     +++| CSJ5     SOD    T2          DECREMENT OFFSET
00638  M01S00637.1mu     +++|          MJN    CSJ6        IF ALL ENTRIES CHECKED
00639  M01S00638.1mu     +++|          LDN    EJTE        ADVANCE EJT ADDRESS
00640  M01S00639.1mu     +++|          RAD    T1
00641  M01S00640.1mu     +++|          SHN    -14
00642  M01S00641.1mu     +++|          RAD    T0
00643  M01S00642.1mu     +++|          SHN    14
00644  M01S00643.1mu     +++|          LMD    T1
00645  M01S00644.1mu     +++|          ADK    JSNE
00646  M01S00645.1mu     +++|          CRD    CM          READ JSN
00647  M01S00646.1mu     +++|          LDD    CM
00648  M01S00647.1mu     +++|          LMD    CN
00649  M01S00648.1mu     +++|          NJN    CSJ5        IF NO MATCH
00650  M01S00649.1mu     +++|          LDD    CM+1
00651  M01S00650.1mu     +++|          LMD    CN+1
00652  M01S00651.1mu     +++|          NJN    CSJ5        IF NO MATCH
00653  M01S00652.1mu     +++|          UJN    CSJ3        ENTRY FOUND IN EJT
00654  M01S00653.1mu     +++|
00655  M01S00654.1mu     +++|*         JOB MISSING, INFORM MAGNET.
00656  M01S00655.1mu     +++|
00657  M01S00656.1mu     +++| CSJ6     LDD    CN          SET JSN
00658  M01S00657.1mu     +++|          STD    CM+1
00659  M01S00658.1mu     +++|          LDD    CN+1
00660  M01S00659.1mu     +++|          STD    CM+2
00661  M01S00660.1mu     +++|          LDN    /MTX/TJE    SET TERMINATE JOB TABLE ENTRY
00662  M01S00661.1mu     +++|          STD    CM
00663  M01S00662.1mu     +++|          LDN    0
00664  M01S00663.1mu     +++|          STD    CM+3
00665  M01S00664.1mu     +++|          LDN    1
00666  M01S00665.1mu     +++|          STD    CM+4
00667  M01S00666.1mu     +++|          RJM    STM         SEND *TDAM* TO MAGNET
00668  M01S00667.1mu     +++|          LJM    CSJX        RETURN
00669  M01S00668.1mu     +++| STM      SPACE  4,15
00670  M01S00669.1mu     +++|**        STM - SEND *TDAM* TO *MAGNET*.
00671  M01S00670.1mu     +++|*
00672  M01S00671.1mu     +++|*         ENTRY  (CM - CM+4) = *MAGNET* REQUEST WORD.
00673  M01S00672.1mu     +++|*
00674  M01S00673.1mu     +++|*         EXIT   (A) = 0, IF REQUEST COMPLETED.
00675  M01S00674.1mu     +++|*                (A) .NE. 0, IF *TDAM* WRITE REJECT.
00676  M01S00675.1mu     +++|*                TO *PNR5* IF ERROR FLAG DETECTED.
00677  M01S00676.1mu     +++|*
00678  M01S00677.1mu     +++|*         USES   CM+1 - CM+4.
00679  M01S00678.1mu     +++|*
00680  M01S00679.1mu     +++|*         MACROS DELAY, MONITOR, PAUSE.
00681  M01S00680.1mu     +++|
00682  M01S00681.1mu     +++|
00683  M01S00682.1mu     +++| STM      SUBR               ENTRY/EXIT
00684  M01S00683.1mu     +++|          LDD    MA          WRITE REQUEST TO MESSAGE BUFFER
00685  M01S00684.1mu     +++|          CWD    CM
00686  M01S00685.1mu     +++| STM1     LDN    1           SET WRITE FUNCTION
00687  M01S00686.1mu     +++|          STD    CM+1
00688  M01S00687.1mu     +++|          LDC    MTSI        SET *MAGNET* SUBSYSTEM IDENTIFICATION
00689  M01S00688.1mu     +++|          STD    CM+2
00690  M01S00689.1mu     +++|          LDD    HN          SET WORD COUNT
00691  M01S00690.1mu     +++|          STD    CM+3
00692  M01S00691.1mu     +++|          LDK    /MTX/RCAL   SET ADDRESS OF *RESEX* REQUEST BUFFER
00693  M01S00692.1mu     +++|          STD    CM+4
00694  M01S00693.1mu     +++|          MONITOR  TDAM
00695  M01S00694.1mu     +++|          LDD    CM+1
00696  M01S00695.1mu     +++|          ZJN    STMX        IF NO ERROR
00697  M01S00696.1mu     +++|          SBN    4
00698  M01S00697.1mu     +++|          ZJN    STMX        IF *MAGNET* NOT ACTIVE (IGNORE)
00699  M01S00698.1mu     +++|          ADN    -1+4
00700  M01S00699.1mu     +++|          NJN    STMX        IF ERROR OTHER THAN STORAGE MOVE (IGNORE)
00701  M01S00700.1mu     +++|          DELAY
00702  M01S00701.1mu     +++|          PAUSE
00703  M01S00702.1mu     +++|          LDD    CM+1
00704  M01S00703.1mu     +++|          ZJN    STM1        IF ERROR FLAG NOT SET
00705  M01S00704.1mu     +++|          LJM    STMX        RETURN
00706  M01S00705.1mu     +++| UUF      SPACE  4,15
00707  M01S00706.1mu     +++|**        UUF - UPDATE UNIT FLAGS.
00708  M01S00707.1mu     +++|*
00709  M01S00708.1mu     +++|*         ENTRY  (UDTA) = FIRST UDT ADDRESS.
00710  M01S00709.1mu     +++|*
00711  M01S00710.1mu     +++|*         EXIT   UNIT STATUS FLAGS RETURNED TO MAGNET.
00712  M01S00711.1mu     +++|*                CHECK UNIT ACTIVITY FLAG SET IF CHANGE IN UNIT STATUS.
00713  M01S00712.1mu     +++|*                REQUEST REQUEUED ON INACCESSIBLE UNITS WITH *1MT*
00714  M01S00713.1mu     +++|*                  REQUESTS.
00715  M01S00714.1mu     +++|*                (UDTA) = FIRST UDT ADDRESS.
00716  M01S00715.1mu     +++|*
00717  M01S00716.1mu     +++|*         USES   T1, T2, T3, T8, T9, CM - CM+4.
00718  M01S00717.1mu     +++|*
00719  M01S00718.1mu     +++|*         CALLS  AUA, CES.
00720  M01S00719.1mu     +++|
00721  M01S00720.1mu     +++|
00722  M01S00721.1mu     +++| UUF      SUBR               ENTRY/EXIT
00723  M01S00722.1mu     +++|
00724  M01S00723.1mu     +++|*         INITIALIZE *TUAA* TABLE AND UNIT MASK.
00725  M01S00724.1mu     +++|
00726  M01S00725.1mu     +++|          LDK    /MTX/CST    INITIALIZE CST ADDRESS
00727  M01S00726.1mu     +++|          STD    T1
00728  M01S00727.1mu     +++|          LDK    TUAC        INITIALIZE *TUAC* ADDRESS
00729  M01S00728.1mu     +++|          STD    T2
00730  M01S00729.1mu     +++| UUF1     LDD    RA          SET CST ADDRESS
00731  M01S00730.1mu     +++|          SHN    6
00732  M01S00731.1mu     +++|          ADD    T1
00733  M01S00732.1mu     +++|          ADK    /MTX/CPST   READ CHANNEL NUMBER
00734  M01S00733.1mu     +++|          CRD    CM
00735  M01S00734.1mu     +++|          LDD    CM+4
00736  M01S00735.1mu     +++|          ZJN    UUF2        IF END OF CHANNELS
00737  M01S00736.1mu     +++|          LDD    CM+3        SET CHANNEL NUMBER
00738  M01S00737.1mu     +++|          LPN    37          SET CHANNEL NUMBER
00739  M01S00738.1mu     +++|          STD    T3
00740  M01S00739.1mu     +++|          LDD    T2          SET *TUAC* ADDRESS
00741  M01S00740.1mu     +++|          STM    TUAA,T3
00742  M01S00741.1mu     +++|          LDN    /MTX/CSTE   ADVANCE CST ADDRESS
00743  M01S00742.1mu     +++|          RAD    T1
00744  M01S00743.1mu     +++|          LDN    5           ADVANCE *TUAC* ADDRESS
00745  M01S00744.1mu     +++|          RAD    T2
00746  M01S00745.1mu     +++|          UJN    UUF1        CHECK NEXT CST ENTRY
00747  M01S00746.1mu     +++|
00748  M01S00747.1mu     +++| UUF2     STD    T9          INITIALIZE UNIT FLAG BYTE INDEX
00749  M01S00748.1mu     +++|          LDC    4000        INITIALIZE UNIT FLAG MASK
00750  M01S00749.1mu     +++|          STD    T8
00751  M01S00750.1mu     +++|
00752  M01S00751.1mu     +++|*         CHECK UNIT.
00753  M01S00752.1mu     +++|
00754  M01S00753.1mu     +++| UUF3     RJM    CES         CHECK EQUIPMENT STATUS
00755  M01S00754.1mu     +++|          RJM    AUA         ADVANCE UDT ADDRESS
00756  M01S00755.1mu     +++|          ZJN    UUF5        IF ALL UNITS CHECKED
00757  M01S00756.1mu     +++|          LDD    T8          ADVANCE UNIT MASK
00758  M01S00757.1mu     +++|          SHN    -1
00759  M01S00758.1mu     +++|          NJN    UUF4        IF NOT END OF BYTE
00760  M01S00759.1mu     +++|          AOD    T9          ADVANCE BYTE INDEX
00761  M01S00760.1mu     +++|          LDC    4000        RESET MASK FOR NEW BYTE
00762  M01S00761.1mu     +++| UUF4     STD    T8
00763  M01S00762.1mu     +++|          UJN    UUF3        CHECK NEXT UNIT
00764  M01S00763.1mu     +++|
00765  M01S00764.1mu     +++|*         RETURN UNIT FLAGS TO MAGNET.
00766  M01S00765.1mu     +++|
00767  M01S00766.1mu     +++| UUF5     LDK    /MTX/CST+/MTX/CUAC  INITIALIZE *CUAC* ADDRESS
00768  M01S00767.1mu     +++|          STD    T1
00769  M01S00768.1mu     +++| UUF6     LDD    RA          SET *CUAC* ADDRESS
00770  M01S00769.1mu     +++|          SHN    6
00771  M01S00770.1mu     +++|          ADD    T1
00772  M01S00771.1mu     +++|          CWM    TUAC,ON     UPDATE ACCESS FLAGS
00773  M01S00772.1mu     +++| UUFA     EQU    *-1         (*TUAC* ADDRESS)
00774  M01S00773.1mu     +++|          LDN    5           ADVANCE *TUAC* ADDRESS
00775  M01S00774.1mu     +++|          RAM    UUFA
00776  M01S00775.1mu     +++|          LDK    /MTX/CSTE   ADVANCE *CUAC* ADDRESS
00777  M01S00776.1mu     +++|          RAD    T1
00778  M01S00777.1mu     +++|          LMC    /MTX/CST+/MTX/MCHAN*/MTX/CSTE+/MTX/CUAC
00779  M01S00778.1mu     +++|          NJN    UUF6        IF MORE CHANNELS TO PROCESS
00780  M01S00779.1mu     +++|          LDD    RA
00781  M01S00780.1mu     +++|          SHN    6
00782  M01S00781.1mu     +++|          ADK    /MTX/ACCU
00783  M01S00782.1mu     +++|          CRD    CM          GET PREVIOUS ACCESSIBLE UNITS
00784  M01S00783.1mu     +++|          CWM    ACCM,ON     UPDATE ACCESSIBLE UNITS
00785  M01S00784.1mu     +++|          ADK    /MTX/ASGU-/MTX/ACCU-1
00786  M01S00785.1mu     +++|          CRD    CN          GET PREVIOUS ASSIGNABLE UNITS
00787  M01S00786.1mu     +++|          CWM    ASGM,ON     UPDATE ASSIGNABLE UNITS
00788  M01S00787.1mu     +++|          ADK    /MTX/JBRO-/MTX/ASGU-1
00789  M01S00788.1mu     +++|          CWM    JROM,ON     UPDATE JOB STATUS FLAGS
00790  M01S00789.1mu     +++|          LDD    CM
00791  M01S00790.1mu     +++|          LMM    ACCM
00792  M01S00791.1mu     +++|          NJN    UUF7        IF CHANGE IN UNIT STATUS
00793  M01S00792.1mu     +++|          LDD    CM+1
00794  M01S00793.1mu     +++|          LMM    ACCM+1
00795  M01S00794.1mu     +++|          NJN    UUF7        IF CHANGE IN UNIT STATUS
00796  M01S00795.1mu     +++|          LDD    CN
00797  M01S00796.1mu     +++|          LMM    ASGM
00798  M01S00797.1mu     +++|          NJN    UUF7        IF CHANGE IN UNIT STATUS
00799  M01S00798.1mu     +++|          LDD    CN+1
00800  M01S00799.1mu     +++|          LMM    ASGM+1
00801  M01S00800.1mu     +++|          ZJN    UUF8        IF NO CHANGE IN UNIT STATUS
00802  M01S00801.1mu     +++| UUF7     LDN    ZERL
00803  M01S00802.1mu     +++|          CRD    CM
00804  M01S00803.1mu     +++|          LDC    4000
00805  M01S00804.1mu     +++|          STD    CM
00806  M01S00805.1mu     +++|          LDD    RA
00807  M01S00806.1mu     +++|          SHN    6
00808  M01S00807.1mu     +++|          ADK    /MTX/CUAF   SET CHECK UNIT ACTIVITY FLAG
00809  M01S00808.1mu     +++|          CWD    CM
00810  M01S00809.1mu     +++| UUF8     LJM    UUFX        RETURN
00811  M01S00810.1mu     +++| TUAA     SPACE  4,10
00812  M01S00811.1mu     +++|**        TUAA - TABLE OF *TUAC* ADDRESSES INDEXED BY CHANNEL NUMBER.
00813  M01S00812.1mu     +++|*
00814  M01S00813.1mu     +++|*T,       12/ TADD

Figure

00815  M01S00814.1mu     +++|*
00816  M01S00815.1mu     +++|*                TADD = ADDRESS OF *TUAC* ENTRY FOR CHANNEL.
00817  M01S00816.1mu     +++|
00818  M01S00817.1mu     +++| TUAA     BSSZ   40
00819  M01S00818.1mu     +++| TUAC     SPACE  4,10
00820  M01S00819.1mu     +++|**        TUAC - *CUAC* WORDS OF *CST* IN *CST* ORDER.
00821  M01S00820.1mu     +++|*
00822  M01S00821.1mu     +++|*T,       16/ UNITA,44/ 0

Figure

00823  M01S00822.1mu     +++|*
00824  M01S00823.1mu     +++|*                UNITA = MASK OF UNITS ACCESIBLE ON CHANNEL
00825  M01S00824.1mu     +++|
00826  M01S00825.1mu     +++|
00827  M01S00826.1mu     +++| TUAC     BSSZ   /MTX/MCHAN*5
00828  M01S00827.1mu     +++| USTB     SPACE  4,10
00829  M01S00828.1mu     +++|**        USTB - UNIT STATUS FLAGS ASSEMBLY BUFFER.
00830  M01S00829.1mu     +++|*
00831  M01S00830.1mu     +++|*         BUFFER FOR MAGNET CELLS *ACCU*, *ASGU*, AND *JBRO*.
00832  M01S00831.1mu     +++|
00833  M01S00832.1mu     +++| USTB     BSSZ   3*5
00834  M01S00833.1mu     +++| ACCM     EQU    USTB        *ACCU*
00835  M01S00834.1mu     +++| ASGM     EQU    USTB+5      *ASGU*
00836  M01S00835.1mu     +++| JROM     EQU    USTB+2*5    *JBRO*
00837  M01S00836.1mu     +++|
00838  M01S00837.1mu     +++|
00839  M01S00838.1mu     +++| IFP      HERE               CODE TO INITIALIZE SYSTEM FNT PROCESSOR
00840  M01S00839.1mu     +++|          OVERLAY (CIO OPERATIONS.)
00841  M01S00840.1mu     +++|          TITLE  COMPLETE USER FET.
00842  M01S00841.1mu     +++| CUF      SPACE  4,10
00843  M01S00842.1mu     +++|**        CUF - COMPLETE USER FET.
00844  M01S00843.1mu     +++|*         COMPLETES THE FET AND HANDLES SPECIAL REQUIREMENTS
00845  M01S00844.1mu     +++|*         FOR CLOSE CODES.
00846  M01S00845.1mu     +++|*
00847  M01S00846.1mu     +++|*T        12/ 0,12/ CUF,18/,18/ RETURN CODE

Figure

00848  M01S00847.1mu     +++|*
00849  M01S00848.1mu     +++|*         CALLS  CCR, CUL, CUP, PRS.
00850  M01S00849.1mu     +++|
00851  M01S00850.1mu     +++|
00852  M01S00851.1mu     +++|          ENTRY  CUF
00853  M01S00852.1mu     +++|          RJM    PRS         PRESET
00854  M01S00853.1mu     +++|          LCN    1           SEARCH FOR SPECIAL PROCESSOR
00855  M01S00854.1mu     +++|          STD    T1
00856  M01S00855.1mu     +++| CUF1     LDN    2
00857  M01S00856.1mu     +++|          RAD    T1
00858  M01S00857.1mu     +++|          LDM    CUFB,T1
00859  M01S00858.1mu     +++|          ZJN    CUF2        IF END OF TABLE
00860  M01S00859.1mu     +++|          LMM    ECIO        COMPARE WITH I/O REQUEST
00861  M01S00860.1mu     +++|          LPC    774
00862  M01S00861.1mu     +++|          NJN    CUF1        IF NO MATCH
00863  M01S00862.1mu     +++|          LDM    CUFB+1,T1   EXECUTE SPECIAL PROCESSOR
00864  M01S00863.1mu     +++|          STM    CUFA
00865  M01S00864.1mu     +++|          RJM    *
00866  M01S00865.1mu     +++| CUFA     EQU    *-1
00867  M01S00866.1mu     +++| CUF2     LDD    PA          COMPLETE FET
00868  M01S00867.1mu     +++|          LPN    77
00869  M01S00868.1mu     +++|          SHN    14
00870  M01S00869.1mu     +++|          LMD    PB
00871  M01S00870.1mu     +++|          SCN    3           INSURE COMPLETE BIT SET
00872  M01S00871.1mu     +++|          ADN    1
00873  M01S00872.1mu     +++|          RJM    CCR         COMPLETE CIO REQUEST
00874  M01S00873.1mu     +++|          LJM    NCPX        EXIT
00875  M01S00874.1mu     +++|
00876  M01S00875.1mu     +++|
00877  M01S00876.1mu     +++| CUFB     BSS    0           TABLE OF CIO CODES NEEDING SPECIAL CARE
00878  M01S00877.1mu     +++|          CON    170,CUL     CLOSE/UNLOAD
00879  M01S00878.1mu     +++|          CON    174,CUL     CLOSE/UNLOAD
00880  M01S00879.1mu     +++|          CON    330,CUP     CLOSER
00881  M01S00880.1mu     +++|          CON    350,CUP     CLOSER
00882  M01S00881.1mu     +++|          CON    370,CUP     CLOSER/UNLOAD
00883  M01S00882.1mu     +++|          CON    374,CUL     CLOSER/RETURN
00884  M01S00883.1mu     +++|          CON    0           END OF TABLE
00885  M01S00884.1mu     +++| CUL      SPACE  4,10
00886  M01S00885.1mu     +++|**        CUL - CLOSE/UNLOAD PROCESSOR.
00887  M01S00886.1mu     +++|*
00888  M01S00887.1mu     +++|*         EXIT   TO *RET1*.
00889  M01S00888.1mu     +++|*
00890  M01S00889.1mu     +++|*         USES   FA, CM - CM+4, CN - CN+4.
00891  M01S00890.1mu     +++|*
00892  M01S00891.1mu     +++|*         CALLS  CCR, FAD, HNG, *0DF*.
00893  M01S00892.1mu     +++|*
00894  M01S00893.1mu     +++|*         MACROS EXECUTE.
00895  M01S00894.1mu     +++|
00896  M01S00895.1mu     +++|
00897  M01S00896.1mu     +++| CUL3     RJM    HNG         HANG
00898  M01S00897.1mu     +++|
00899  M01S00898.1mu     +++| CUL      SUBR               ENTRY/EXIT
00900  M01S00899.1mu     +++|          LDM    FNTA        SET FNT ADDRESS
00901  M01S00900.1mu     +++|          STD    FA
00902  M01S00901.1mu     +++|          NFA    FA,R
00903  M01S00902.1mu     +++|          ADK    FSTL
00904  M01S00903.1mu     +++|          CRD    CN          GET TAPE FILE FST
00905  M01S00904.1mu     +++|          LDD    CN
00906  M01S00905.1mu     +++|          LMD    EO
00907  M01S00906.1mu     +++|          NJN    CUL3        IF EST ORDINAL NOT CORRECT
00908  M01S00907.1mu     +++|          LDM    ECIO        SET RETURN/UNLOAD FLAG FOR *0DF*
00909  M01S00908.1mu     +++|          SHN    -2
00910  M01S00909.1mu     +++|          LPN    1
00911  M01S00910.1mu     +++|          LMN    1
00912  M01S00911.1mu     +++|          STM    B0DF-1
00913  M01S00912.1mu     +++|          EXECUTE 0DF,B0DF   DROP FILE
00914  M01S00913.1mu     +++|          SHN    -14
00915  M01S00914.1mu     +++|          STD    T1          SAVE *0DF* STATUS
00916  M01S00915.1mu     +++|          LDN    0           SET STATUS WORD
00917  M01S00916.1mu     +++|          RJM    FAD         SET FET ADDRESS
00918  M01S00917.1mu     +++|          ZJN    CUL2        IF FET STATUS NOT IN FL
00919  M01S00918.1mu     +++|          CRD    CM          READ FET STATUS
00920  M01S00919.1mu     +++|          LDD    PA
00921  M01S00920.1mu     +++|          LPN    77
00922  M01S00921.1mu     +++|          SHN    14
00923  M01S00922.1mu     +++|          LMD    PB
00924  M01S00923.1mu     +++|          SCN    3
00925  M01S00924.1mu     +++|          ZJN    CUL1        IF SET COMPLETE BIT ONLY
00926  M01S00925.1mu     +++|          LMD    CM+4        SET COMPLETION STATUS
00927  M01S00926.1mu     +++|          SCN    2
00928  M01S00927.1mu     +++|          LMD    CM+4
00929  M01S00928.1mu     +++|          STD    CM+4
00930  M01S00929.1mu     +++|          SHN    -14
00931  M01S00930.1mu     +++|          LMD    CM+3
00932  M01S00931.1mu     +++|          LPN    77
00933  M01S00932.1mu     +++|          LMD    CM+3
00934  M01S00933.1mu     +++|          STD    CM+3
00935  M01S00934.1mu     +++| CUL1     LDD    CM+4        SET COMPLETE BIT
00936  M01S00935.1mu     +++|          SCN    1
00937  M01S00936.1mu     +++|          LMN    1
00938  M01S00937.1mu     +++|          STD    CM+4
00939  M01S00938.1mu     +++|          LDN    0           SET STATUS WORD
00940  M01S00939.1mu     +++|          RJM    FAD         SET FET ADDRESS
00941  M01S00940.1mu     +++|          CWD    CM          UPDATE FET STATUS
00942  M01S00941.1mu     +++|          LDN    0
00943  M01S00942.1mu     +++| CUL2     RJM    CCR         UPDATE BLOCK COUNT AND RETURN TO MAGNET CP
00944  M01S00943.1mu     +++|          LDN    ZERL
00945  M01S00944.1mu     +++|          CRD    CM
00946  M01S00945.1mu     +++|          LDK    /MTX/RTF    SET RETURN FILE REQUEST
00947  M01S00946.1mu     +++|          STD    CM
00948  M01S00947.1mu     +++|          RJM    UAD
00949  M01S00948.1mu     +++|          ADK    /MTX/UFRQ
00950  M01S00949.1mu     +++|          CWD    CM
00951  M01S00950.1mu     +++|          LJM    NCPX        EXIT
00952  M01S00951.1mu     +++| CUP      SPACE  4,10
00953  M01S00952.1mu     +++|**        CUP - CHECK USER PROCESSING ON CLOSER.
00954  M01S00953.1mu     +++|*
00955  M01S00954.1mu     +++|*         EXIT   (PA - PB) = UPDATED IF NEEDED.
00956  M01S00955.1mu     +++|*
00957  M01S00956.1mu     +++|*         USES   CM - CM+4.
00958  M01S00957.1mu     +++|*
00959  M01S00958.1mu     +++|*         CALLS  FAD.
00960  M01S00959.1mu     +++|
00961  M01S00960.1mu     +++|
00962  M01S00961.1mu     +++| CUP      SUBR               ENTRY/EXIT
00963  M01S00962.1mu     +++|          LDM    FETO
00964  M01S00963.1mu     +++|          SHN    21-11
00965  M01S00964.1mu     +++|          PJN    CUP1        IF UP NOT SELECTED
00966  M01S00965.1mu     +++|          LDD    PA          CHECK ERROR CODE
00967  M01S00966.1mu     +++|          LPN    3
00968  M01S00967.1mu     +++|          SHN    14
00969  M01S00968.1mu     +++|          ADD    PB
00970  M01S00969.1mu     +++|          SHN    -12
00971  M01S00970.1mu     +++|          NJN    CUPX        IF ERROR
00972  M01S00971.1mu     +++|          LDM    ECIO        SET TO RETURN END OF REEL
00973  M01S00972.1mu     +++|          LPC    774
00974  M01S00973.1mu     +++|          LMC    2001
00975  M01S00974.1mu     +++|          STD    PB
00976  M01S00975.1mu     +++|          UJN    CUPX        RETURN
00977  M01S00976.1mu     +++|
00978  M01S00977.1mu     +++| CUP1     LDD    LT
00979  M01S00978.1mu     +++|          SHN    21-12
00980  M01S00979.1mu     +++|          PJN    CUPX        IF NOT LABELED
00981  M01S00980.1mu     +++|          LDM    FETO
00982  M01S00981.1mu     +++|          SHN    21-5
00983  M01S00982.1mu     +++|          MJN    CUPX        IF EXTENDED LABELS
00984  M01S00983.1mu     +++|          LDM    FETL
00985  M01S00984.1mu     +++|          SHN    -6          FET LENGTH - 5
00986  M01S00985.1mu     +++|          SBN    10
00987  M01S00986.1mu     +++|          MJN    CUPX        IF FET NOT LONG ENOUGH FOR LABEL PORTION
00988  M01S00987.1mu     +++|          LDN    14          SET WORD TO READ
00989  M01S00988.1mu     +++|          RJM    FAD         SET FET ADDRESS
00990  M01S00989.1mu     +++|          ZJN    CUP3        IF ADDRESS NOT IN FL
00991  M01S00990.1mu     +++|          CRD    CM          READ FET + 14
00992  M01S00991.1mu     +++|          AOD    CM+4
00993  M01S00992.1mu     +++|          LPN    77
00994  M01S00993.1mu     +++|          LMN    1R9+1
00995  M01S00994.1mu     +++|          NJN    CUP2        IF NO OVERFLOW
00996  M01S00995.1mu     +++|          LDN    100-1R9-1+1R0
00997  M01S00996.1mu     +++|          RAD    CM+4
00998  M01S00997.1mu     +++|          SHN    -6
00999  M01S00998.1mu     +++|          LMN    1R9+1
01000  M01S00999.1mu     +++|          NJN    CUP2        IF NO OVERFLOW
01001  M01S01000.1mu     +++|          LDC    -1R9*100-100+1R0*100
01002  M01S01001.1mu     +++|          RAD    CM+4
01003  M01S01002.1mu     +++|          AOD    CM+3
01004  M01S01003.1mu     +++|          LPN    77
01005  M01S01004.1mu     +++|          LMN    1R9+1
01006  M01S01005.1mu     +++|          NJN    CUP2        IF NO OVERFLOW
01007  M01S01006.1mu     +++|          LDN    100-1R9-1+1R0
01008  M01S01007.1mu     +++|          RAD    CM+3
01009  M01S01008.1mu     +++| CUP2     LDN    14          SET WORD TO WRITE
01010  M01S01009.1mu     +++|          RJM    FAD         SET FET ADDRESS
01011  M01S01010.1mu     +++|          CWD    CM          UPDATE REEL NUMBER IN FET
01012  M01S01011.1mu     +++| CUP3     LJM    CUPX        RETURN
01013  M01S01012.1mu     +++|          TITLE  ABORT CIO REQUEST.
01014  M01S01013.1mu     +++| MAB      SPACE  4,25
01015  M01S01014.1mu     +++|**        MAB - ISSUE MESSAGE AND ABORT REQUEST.
01016  M01S01015.1mu     +++|*
01017  M01S01016.1mu     +++|*
01018  M01S01017.1mu     +++|*T UXRQ   12/ 1,12/ MAB,12/,12/ PA,12/ PB

Figure UXRQ

01019  M01S01018.1mu     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01020  M02S01019.ns2773  ---|*         PB = *COMSMTX* ERROR CODE IF .NE. 0 AND .NE. 2000B.

Seq #  *Modification Id* Act 
----------------------------+
01021  M02S01020.ns2773  ---|*         PB = 0 IF TO CHECK JOB ERROR FLAG.

Seq #  *Modification Id* Act 
----------------------------+
01022  M02S01021.ns2773  ---|*         PB = 2000B IF TO ABORT REQUEST USING ERROR CODE IN UDT.
01023  M01S00002.ns2773  +++|*         PB = *COMSMTX* ERROR CODE IF .NE. 0.
01024  M01S00003.ns2773  +++|*         PB = 0 IF TO USE ERROR CODE IN UDT.
01025  M01S01022.1mu     +++|*         PA = *COMSMTX* ERROR SUB-CODE IF *PB* IS ERROR CODE.

Seq #  *Modification Id* Act 
----------------------------+
01026  M02S01023.ns2773  ---|*

Seq #  *Modification Id* Act 
----------------------------+
01027  M02S01024.ns2773  ---|*         IF PB = 0, THE JOB ERROR FLAG WILL BE CHECKED FOR *ODET*,

Seq #  *Modification Id* Act 
----------------------------+
01028  M02S01025.ns2773  ---|*         *TAET*, *FSET*, OR .GT. *SPET*.  IF ANY OF THESE CONDITIONS

Seq #  *Modification Id* Act 
----------------------------+
01029  M02S01026.ns2773  ---|*         IS TRUE, THE REQUEST WILL BE ABORTED WITH AN *EFT* ERROR.
01030  M01S01027.1mu     +++|*
01031  M01S01028.1mu     +++|*T, EXIT  12/ 2,12/ MAB,12/,12/ PA,12/ PB

Figure EXIT

01032  M01S01029.1mu     +++|*
01033  M01S01030.1mu     +++|*         PB = *COMSMTX* ERROR CODE USED IN ABORT PROCESSING.

Seq #  *Modification Id* Act 
----------------------------+
01034  M02S01031.ns2773  ---|*         PB = 0 IF CHECK ERROR FLAG CALL AND REQUEST NOT ABORTED.

Seq #  *Modification Id* Act 
----------------------------+
01035  M02S01032.ns2773  ---|*         PA = ERROR SUB-CODE FROM CALL OR FROM UDT IF REQUEST ABORTED.
01036  M01S00004.ns2773  +++|*         PA = ERROR SUB-CODE.
01037  M01S01033.1mu     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01038  M02S01034.ns2773  ---|*         CALLS  CCR, CEF, C2D, DFM, FAD, HNG, MFM, NWE, OPM, PRS, STM,

Seq #  *Modification Id* Act 
----------------------------+
01039  M02S01035.ns2773  ---|*                TME, UAD, VAE.
01040  M01S00005.ns2773  +++|*         CALLS  CCR, C2D, DFM, FAD, HNG, MFM, NWE, OPM, PRS, STM, TME,
01041  M01S00006.ns2773  +++|*                UAD, VAE.
01042  M01S01036.1mu     +++|*
01043  M01S01037.1mu     +++|*         MACROS MONITOR.
01044  M01S01038.1mu     +++|
01045  M01S01039.1mu     +++|
01046  M01S01040.1mu     +++|          ENTRY  MAB
01047  M01S01041.1mu     +++|          RJM    PRS         PRESET
01048  M01S01042.1mu     +++|          LDD    PB

Seq #  *Modification Id* Act 
----------------------------+
01049  M02S01043.ns2773  ---|          NJN    MAB1        IF NOT CHECK ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
01050  M02S01044.ns2773  ---|          RJM    CEF         CHECK ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
01051  M02S01045.ns2773  ---|          LDD    PB

Seq #  *Modification Id* Act 
----------------------------+
01052  M02S01046.ns2773  ---|          NJN    MAB4        IF TO ABORT REQUEST

Seq #  *Modification Id* Act 
----------------------------+
01053  M02S01047.ns2773  ---|*         LDN    0           DO NOT COMPLETE FET

Seq #  *Modification Id* Act 
----------------------------+
01054  M02S01048.ns2773  ---|          RJM    CCR         UPDATE ACCOUNTING AND RETURN TO MAGNET CP

Seq #  *Modification Id* Act 
----------------------------+
01055  M02S01049.ns2773  ---|          LJM    NCPX        EXIT

Seq #  *Modification Id* Act 
----------------------------+
01056  M02S01050.ns2773  ---|

Seq #  *Modification Id* Act 
----------------------------+
01057  M02S01051.ns2773  ---| MAB1     LMC    2000

Seq #  *Modification Id* Act 
----------------------------+
01058  M02S01052.ns2773  ---|          NJN    MAB2        IF ERROR CODE SPECIFIED IN CALL

Seq #  *Modification Id* Act 
----------------------------+
01059  M02S01053.ns2773  ---|          LDD    EC          USE UDT ERROR CODE
01060  M01S00007.ns2773  +++|          NJN    MAB1        IF ERROR CODE SPECIFIED IN CALL
01061  M01S00008.ns2773  +++|          LDM    ERSC        SET SUB-CODE
01062  M01S00009.ns2773  +++|          STD    PA
01063  M01S00010.ns2773  +++|          LDD    EC          SET ERROR CODE
01064  M01S00011.ns2773  +++|          ZJN    MAB3        IF NO ERROR CODE
01065  M01S01054.1mu     +++|          STD    PB

Seq #  *Modification Id* Act 
----------------------------+
01066  M02S01055.ns2773  ---|          LDM    ERSC        SET SUB-CODE

Seq #  *Modification Id* Act 
----------------------------+
01067  M02S01056.ns2773  ---|          STD    PA

Seq #  *Modification Id* Act 
----------------------------+
01068  M02S01057.ns2773  ---| MAB2     LDD    PB

Seq #  *Modification Id* Act 
----------------------------+
01069  M02S01058.ns2773  ---|          ZJN    MAB3        IF NO ERROR CODE

Seq #  *Modification Id* Act 
----------------------------+
01070  M02S01059.ns2773  ---|          SBN    /MTX/MERC
01071  M01S00012.ns2773  +++| MAB1     SBN    /MTX/MERC
01072  M01S01060.1mu     +++|          MJN    MAB4        IF VALID ERROR CODE
01073  M01S01061.1mu     +++| MAB3     RJM    HNG         HANG
01074  M01S01062.1mu     +++|
01075  M01S01063.1mu     +++| MAB4     LDN    0           SET STATUS WORD
01076  M01S01064.1mu     +++|          RJM    FAD         CHECK FET ADDRESS
01077  M01S01065.1mu     +++|          NJN    MAB5        IF FET WITHIN FL
01078  M01S01066.1mu     +++|          LDN    ZERL
01079  M01S01067.1mu     +++| MAB5     CRD    CN
01080  M01S01068.1mu     +++|          LDD    CN+3        TERMINATE FILE NAME FOR MESSAGE ASSEMBLY
01081  M01S01069.1mu     +++|          SCN    77
01082  M01S01070.1mu     +++|          STD    CN+3
01083  M01S01071.1mu     +++|          LDM    TUEM,PB     SET MESSAGE ADDRESS
01084  M01S01072.1mu     +++|          NJN    MAB6        IF DEFINED
01085  M01S01073.1mu     +++|          LDD    PB
01086  M01S01074.1mu     +++|          RJM    C2D
01087  M01S01075.1mu     +++|          STM    TERR+6
01088  M01S01076.1mu     +++|          LDC    TERR        SET HARDWARE ERROR MESSAGE
01089  M01S01077.1mu     +++| MAB6     RJM    IDF         ISSUE MESSAGE
01090  M01S01078.1mu     +++|          LDM    TSPC,PB
01091  M01S01079.1mu     +++|          ZJN    MAB7        IF NO SPECIAL PROCESSOR
01092  M01S01080.1mu     +++|          STD    T1
01093  M01S01081.1mu     +++|          RJM    0,T1
01094  M01S01082.1mu     +++| MAB7     LDD    BL
01095  M01S01083.1mu     +++|          NJN    MAB8        IF NOT FIRST BLOCK
01096  M01S01084.1mu     +++|          LDD    BL+1
01097  M01S01085.1mu     +++|          SBN    2           0 OR 1 CONSIDERED FIRST BLOCK
01098  M01S01086.1mu     +++|          PJN    MAB8        IF NOT FIRST BLOCK
01099  M01S01087.1mu     +++|          LDM    TAME,EC
01100  M01S01088.1mu     +++|          ZJN    MAB8        IF NO SPECIAL MESSAGE
01101  M01S01089.1mu     +++|          RJM    DFM
01102  M01S01090.1mu     +++| MAB8     LDD    PB
01103  M01S01091.1mu     +++|          LMN    /MTX/ERM
01104  M01S01092.1mu     +++|          NJN    MAB9        IF NOT END OF REEL MESSAGE
01105  M01S01093.1mu     +++|          LJM    NCPX        EXIT
01106  M01S01094.1mu     +++|
01107  M01S01095.1mu     +++| MAB9     LDN    0           CLEAR ERROR PARAMETERS
01108  M01S01096.1mu     +++|          STD    EP
01109  M01S01097.1mu     +++|          STD    EI
01110  M01S01098.1mu     +++|          LDD    HP
01111  M01S01099.1mu     +++|          SHN    21-7
01112  M01S01100.1mu     +++|          MJN    MAB10       IF CTS UNIT
01113  M01S01101.1mu     +++|          LDN    0
01114  M01S01102.1mu     +++|          STD    EP+1
01115  M01S01103.1mu     +++| MAB10    LDD    PB
01116  M01S01104.1mu     +++|          SBN    /MTX/MFAT
01117  M01S01105.1mu     +++|          MJN    MAB11       IF FATAL USER ERROR
01118  M01S01106.1mu     +++|          SBN    /MTX/EFT-/MTX/MFAT
01119  M01S01107.1mu     +++|          ZJN    MAB12       IF ERROR FLAG TERMINATION
01120  M01S01108.1mu     +++|          LDD    SP
01121  M01S01109.1mu     +++|          SHN    21-0
01122  M01S01110.1mu     +++|          MJN    MAB11       IF IGNORE EP SET
01123  M01S01111.1mu     +++|          LDM    FETO
01124  M01S01112.1mu     +++|          SHN    21-10
01125  M01S01113.1mu     +++|          MJN    MAB12       IF ERROR PROCESSING SET
01126  M01S01114.1mu     +++|          LDD    SP
01127  M01S01115.1mu     +++|          SHN    21-1
01128  M01S01116.1mu     +++|          PJN    MAB11       IF NOT ACCEPT DATA WITHOUT EP SET
01129  M01S01117.1mu     +++|          LDN    1           SET TO NOT RETURN ERROR CODE
01130  M01S01118.1mu     +++|          STM    MABA
01131  M01S01119.1mu     +++|          UJN    MAB12       DO NOT SET ERROR FLAG
01132  M01S01120.1mu     +++|
01133  M01S01121.1mu     +++| MAB11    LDN    PPET        SET ERROR FLAG
01134  M01S01122.1mu     +++|          STD    CM+1
01135  M01S01123.1mu     +++|          MONITOR  CEFM
01136  M01S01124.1mu     +++| MAB12    LDM    ECIO        CHECK EXTERNAL CIO CODE
01137  M01S01125.1mu     +++|          LPC    774
01138  M01S01126.1mu     +++|          LMC    200
01139  M01S01127.1mu     +++|          NJN    MAB13       IF NOT CONTROL WORD READ
01140  M01S01128.1mu     +++|          LDM    MABA
01141  M01S01129.1mu     +++|          LMN    1
01142  M01S01130.1mu     +++|          ZJN    MAB13       IF NOT RETURN ERROR CODE
01143  M01S01131.1mu     +++|          LDM    LVLN        PRESERVE LEVEL NUMBER
01144  M01S01132.1mu     +++|          SHN    -6
01145  M01S01133.1mu     +++|          LPN    74
01146  M01S01134.1mu     +++|          RAM    MABA-1
01147  M01S01135.1mu     +++| MAB13    LDM    ECIO        GET EXTERNAL CIO CODE
01148  M01S01136.1mu     +++|          LPC    774
01149  M01S01137.1mu     +++|          LMC    4001
01150  M01S01138.1mu     +++| MABA     EQU    *-1         (FET COMPLETION STATUS)
01151  M01S01139.1mu     +++|          RJM    CCR         SET FET COMPLETE AND RETURN TO MAGNET CP
01152  M01S01140.1mu     +++|
01153  M01S01141.1mu     +++|*         CHECK FOR ERROR DURING *POSMF* REQUEST OR REEL SWAP.
01154  M01S01142.1mu     +++|
01155  M01S01143.1mu     +++|          LDM    ECIO
01156  M01S01144.1mu     +++|          LPC    774
01157  M01S01145.1mu     +++|          LMC    110
01158  M01S01146.1mu     +++|          NJN    MAB14       IF NOT *POSMF* REQUEST
01159  M01S01147.1mu     +++|          LDD    UP          SET END OF SET STATUS
01160  M01S01148.1mu     +++|          LPC    7677
01161  M01S01149.1mu     +++|          LMD    HN
01162  M01S01150.1mu     +++|          STD    UP
01163  M01S01151.1mu     +++| MAB14    RJM    UAD
01164  M01S01152.1mu     +++|          ADK    /MTX/UVRI
01165  M01S01153.1mu     +++|          CRD    CN
01166  M01S01154.1mu     +++|          ADK    /MTX/UFSN-/MTX/UVRI
01167  M01S01155.1mu     +++|          CRD    CM
01168  M01S01156.1mu     +++|          LDD    CN+4
01169  M01S01157.1mu     +++|          LPN    26
01170  M01S01158.1mu     +++|          LMN    20
01171  M01S01159.1mu     +++|          ZJN    MAB15       IF REEL ASSIGNED AND NOT END OF REEL
01172  M01S01160.1mu     +++|          LDD    UP
01173  M01S01161.1mu     +++|          SCN    40
01174  M01S01162.1mu     +++|          LMN    40          SET FILE POSITION INDETERMINATE
01175  M01S01163.1mu     +++|          STD    UP
01176  M01S01164.1mu     +++| MAB15    LDD    CN+4
01177  M01S01165.1mu     +++|          LPN    6
01178  M01S01166.1mu     +++|          ZJN    MAB17       IF NOT END OF REEL PROCESSING
01179  M01S01167.1mu     +++|          SHN    21-1
01180  M01S01168.1mu     +++|          MJN    MAB16       IF NEXT VSN RETURNED
01181  M01S01169.1mu     +++|          SOD    CN+3        DECREMENT REEL NUMBER
01182  M01S01170.1mu     +++|          UJN    MAB17       CLEAR FLAGS
01183  M01S01171.1mu     +++|
01184  M01S01172.1mu     +++| MAB16    AOD    CM+4        INCREMENT SECTION NUMBER
01185  M01S01173.1mu     +++|          SHN    -14
01186  M01S01174.1mu     +++|          RAD    CM+3
01187  M01S01175.1mu     +++| MAB17    LDD    CN+4
01188  M01S01176.1mu     +++|          SCN    17          CLEAR DISPLAY AND END OF REEL FLAGS
01189  M01S01177.1mu     +++|          STD    CN+4
01190  M01S01178.1mu     +++|          RJM    UAD
01191  M01S01179.1mu     +++|          ADK    /MTX/UVRI
01192  M01S01180.1mu     +++|          CWD    CN
01193  M01S01181.1mu     +++|          ADK    /MTX/UFSN-/MTX/UVRI
01194  M01S01182.1mu     +++|          CWD    CM
01195  M01S01183.1mu     +++|          LJM    NCPX        EXIT

Seq #  *Modification Id* Act 
----------------------------+
01196  M02S01184.ns2773  ---| CEF      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
01197  M02S01185.ns2773  ---|**        CEF - CHECK ERROR FLAG.

Seq #  *Modification Id* Act 
----------------------------+
01198  M02S01186.ns2773  ---|*

Seq #  *Modification Id* Act 
----------------------------+
01199  M02S01187.ns2773  ---|*         EXIT   (PB) = 0 IF NOT TO ABORT REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
01200  M02S01188.ns2773  ---|*                (PB) = *EFT* IF TO ABORT REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
01201  M02S01189.ns2773  ---|*

Seq #  *Modification Id* Act 
----------------------------+
01202  M02S01190.ns2773  ---|*         USES   CM - CM+4.

Seq #  *Modification Id* Act 
----------------------------+
01203  M02S01191.ns2773  ---|

Seq #  *Modification Id* Act 
----------------------------+
01204  M02S01192.ns2773  ---|

Seq #  *Modification Id* Act 
----------------------------+
01205  M02S01193.ns2773  ---| CEF      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
01206  M02S01194.ns2773  ---|          LDD    CP          READ ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
01207  M02S01195.ns2773  ---|          ADN    STSW

Seq #  *Modification Id* Act 
----------------------------+
01208  M02S01196.ns2773  ---|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
01209  M02S01197.ns2773  ---|          LDD    CM+1        PRESET ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
01210  M02S01198.ns2773  ---|          STD    PA

Seq #  *Modification Id* Act 
----------------------------+
01211  M02S01199.ns2773  ---|          LMN    ODET

Seq #  *Modification Id* Act 
----------------------------+
01212  M02S01200.ns2773  ---|          ZJN    CEF1        IF OPERATOR DROP

Seq #  *Modification Id* Act 
----------------------------+
01213  M02S01201.ns2773  ---|          LMN    TAET&ODET

Seq #  *Modification Id* Act 
----------------------------+
01214  M02S01202.ns2773  ---|          ZJN    CEF1        IF USER BREAK TWO

Seq #  *Modification Id* Act 
----------------------------+
01215  M02S01203.ns2773  ---|          LMN    FSET&TAET

Seq #  *Modification Id* Act 
----------------------------+
01216  M02S01204.ns2773  ---|          ZJN    CEF1        IF FORCED ERROR

Seq #  *Modification Id* Act 
----------------------------+
01217  M02S01205.ns2773  ---|          LMN    FSET

Seq #  *Modification Id* Act 
----------------------------+
01218  M02S01206.ns2773  ---|          SBN    SPET

Seq #  *Modification Id* Act 
----------------------------+
01219  M02S01207.ns2773  ---|          MJN    CEFX        IF NOT SPECIAL PROCESSING ERROR

Seq #  *Modification Id* Act 
----------------------------+
01220  M02S01208.ns2773  ---| CEF1     LDN    /MTX/EFT    SET ERROR FLAG TERMINATION

Seq #  *Modification Id* Act 
----------------------------+
01221  M02S01209.ns2773  ---|          STD    PB

Seq #  *Modification Id* Act 
----------------------------+
01222  M02S01210.ns2773  ---|          UJN    CEFX        RETURN
01223  M01S01211.1mu     +++| IDF      SPACE  4,10
01224  M01S01212.1mu     +++|**        IDF - ISSUE DAYFILE MESSAGE WITH FILE NAME AND FET ADDRESS.
01225  M01S01213.1mu     +++|*
01226  M01S01214.1mu     +++|*         ENTRY  (A) = ADDRESS OF MESSAGE.
01227  M01S01215.1mu     +++|*                (CN - CN+3) = FILE NAME.
01228  M01S01216.1mu     +++|*
01229  M01S01217.1mu     +++|*         EXIT   MESSAGE ISSUED TO DAYFILE.
01230  M01S01218.1mu     +++|*
01231  M01S01219.1mu     +++|*         USES   T1, T2.
01232  M01S01220.1mu     +++|*
01233  M01S01221.1mu     +++|*         CALLS  ACS, ANS, DFM.
01234  M01S01222.1mu     +++|
01235  M01S01223.1mu     +++|
01236  M01S01224.1mu     +++| IDF      SUBR               ENTRY/EXIT
01237  M01S01225.1mu     +++|          STD    T2          SAVE MESSAGE ADDRESS
01238  M01S01226.1mu     +++|          LDC    BFMS        SET ASSEMBLY ADDRESS
01239  M01S01227.1mu     +++|          STD    T1
01240  M01S01228.1mu     +++|          LDN    0           INITIALIZE MESSAGE ASSEMBLY
01241  M01S01229.1mu     +++|          STI    T1
01242  M01S01230.1mu     +++|          LDD    T2
01243  M01S01231.1mu     +++|          RJM    ACS         ASSEMBLE MESSAGE TEXT
01244  M01S01232.1mu     +++|          LDN    CN
01245  M01S01233.1mu     +++|          RJM    ACS         ASSEMBLE FILE NAME
01246  M01S01234.1mu     +++|          LDC    =Z* AT *
01247  M01S01235.1mu     +++|          RJM    ACS         ASSEMBLE * AT *
01248  M01S01236.1mu     +++|          LDM    FETA        SET FET ADDRESS
01249  M01S01237.1mu     +++|          SHN    6
01250  M01S01238.1mu     +++|          ADM    FETA+1
01251  M01S01239.1mu     +++|          RJM    ANS         ASSEMBLE FET ADDRESS
01252  M01S01240.1mu     +++|          LDC    =Z*.*
01253  M01S01241.1mu     +++|          RJM    ACS         ASSEMBLE MESSAGE TERMINATOR
01254  M01S01242.1mu     +++|          LDC    BFMS        ISSUE MESSAGE TO DAYFILE
01255  M01S01243.1mu     +++|          RJM    DFM
01256  M01S01244.1mu     +++|          LJM    IDFX        RETURN
01257  M01S01245.1mu     +++| MFM      SPACE  4,10
01258  M01S01246.1mu     +++|**        MFM - MULTI-FILE MISSING MESSAGE.
01259  M01S01247.1mu     +++|*
01260  M01S01248.1mu     +++|*         ENTRY  (LG) = REQUESTED FILE SECTION NUMBER.
01261  M01S01249.1mu     +++|*                (LG+1) = HIGHEST EXISTING FILE SECTION NUMBER.
01262  M01S01250.1mu     +++|*
01263  M01S01251.1mu     +++|*         EXIT   (LG - LG+1) = 0.
01264  M01S01252.1mu     +++|*
01265  M01S01253.1mu     +++|*         USES   CM - CM+4.
01266  M01S01254.1mu     +++|*
01267  M01S01255.1mu     +++|*         CALLS  C2D, DFM.
01268  M01S01256.1mu     +++|
01269  M01S01257.1mu     +++|
01270  M01S01258.1mu     +++| MFM1     LDC    MFMD        SET FILE IDENTIFIER NOT FOUND
01271  M01S01259.1mu     +++|          STM    MFMA
01272  M01S01260.1mu     +++| MFM2     LDC    MFMC        * FOUND SECTION  NNNN.*
01273  M01S01261.1mu     +++|*         LDC    MFMD        * FILE IDENTIFIER NOT FOUND.*
01274  M01S01262.1mu     +++| MFMA     EQU    *-1
01275  M01S01263.1mu     +++|          RJM    DFM
01276  M01S01264.1mu     +++| MFM3     LDN    2           SET END OF SET ERROR STATUS
01277  M01S01265.1mu     +++|          RAM    MABA-1
01278  M01S01266.1mu     +++|          LDC    1001
01279  M01S01267.1mu     +++|          STM    MABA
01280  M01S01268.1mu     +++|
01281  M01S01269.1mu     +++| MFM      SUBR               ENTRY/EXIT
01282  M01S01270.1mu     +++|          LDD    PB          CHECK ERROR MESSAGE
01283  M01S01271.1mu     +++|          LMN    /MTX/IOS
01284  M01S01272.1mu     +++|          ZJN    MFM3        IF INCORRECT OPERATION AT END OF SET
01285  M01S01273.1mu     +++|          LDD    LG
01286  M01S01274.1mu     +++|          ADD    LG+1
01287  M01S01275.1mu     +++|          ZJP    MFM1        IF FILE IDENTIFIER NOT FOUND
01288  M01S01276.1mu     +++|          LDD    LG          CONVERT REQUESTED FILE SECTION NUMBER
01289  M01S01277.1mu     +++|          SHN    -6
01290  M01S01278.1mu     +++|          RJM    C2D
01291  M01S01279.1mu     +++|          STM    MFMB+12
01292  M01S01280.1mu     +++|          LDD    LG
01293  M01S01281.1mu     +++|          RJM    C2D
01294  M01S01282.1mu     +++|          STM    MFMB+13
01295  M01S01283.1mu     +++|          LDD    LG+1        CONVERT FOUND FILE SECTION NUMBER
01296  M01S01284.1mu     +++|          SHN    -6
01297  M01S01285.1mu     +++|          RJM    C2D
01298  M01S01286.1mu     +++|          STM    MFMC+10
01299  M01S01287.1mu     +++|          LDD    LG+1
01300  M01S01288.1mu     +++|          RJM    C2D
01301  M01S01289.1mu     +++|          STM    MFMC+11
01302  M01S01290.1mu     +++|          LDC    MFMB        * REQUESTED SECTION  NNNN.*
01303  M01S01291.1mu     +++|          RJM    DFM
01304  M01S01292.1mu     +++|          LDN    0           CLEAR PARAMETERS
01305  M01S01293.1mu     +++|          STD    LG
01306  M01S01294.1mu     +++|          STD    LG+1
01307  M01S01295.1mu     +++|          LJM    MFM2        ISSUE NEXT MESSAGE
01308  M01S01296.1mu     +++|
01309  M01S01297.1mu     +++|
01310  M01S01298.1mu     +++| MFMB     DATA   C* REQUESTED SECTION  0000.*
01311  M01S01299.1mu     +++| MFMC     DATA   C* FOUND SECTION  0000.*
01312  M01S01300.1mu     +++| MFMD     DATA   C* FILE IDENTIFIER NOT FOUND.*
01313  M01S01301.1mu     +++| NWE      SPACE  4,10
01314  M01S01302.1mu     +++|**        NWE - NO WRITE ENABLE.
01315  M01S01303.1mu     +++|*
01316  M01S01304.1mu     +++|*         CALLS  DFM, HNG.
01317  M01S01305.1mu     +++|
01318  M01S01306.1mu     +++|
01319  M01S01307.1mu     +++| NWE1     RJM    HNG         HANG
01320  M01S01308.1mu     +++|
01321  M01S01309.1mu     +++| NWE      SUBR               ENTRY/EXIT
01322  M01S01310.1mu     +++|          LDD    PA
01323  M01S01311.1mu     +++|          ZJN    NWE1        IF NO SUB-CODE
01324  M01S01312.1mu     +++|          SBN    /MTX/MWSC
01325  M01S01313.1mu     +++|          PJN    NWE1        IF NOT VALID SUB-CODE
01326  M01S01314.1mu     +++|          LDM    TNWE,PA
01327  M01S01315.1mu     +++|          ZJN    NWEX        IF NO ADDITIONAL MESSAGE
01328  M01S01316.1mu     +++|          RJM    DFM
01329  M01S01317.1mu     +++|          UJN    NWEX
01330  M01S01318.1mu     +++| OPM      SPACE  4,10
01331  M01S01319.1mu     +++|**        OPM - OUTPUT MESSAGE ON OPEN PARAMETER ERROR.
01332  M01S01320.1mu     +++|*
01333  M01S01321.1mu     +++|*         ENTRY  (EP) = CHARACTER POSITION OF FIELD IN ERROR.
01334  M01S01322.1mu     +++|*
01335  M01S01323.1mu     +++|*         USES   CM - CM+4.
01336  M01S01324.1mu     +++|*
01337  M01S01325.1mu     +++|*         CALLS  DFM.
01338  M01S01326.1mu     +++|*
01339  M01S01327.1mu     +++|*         MACROS MONITOR.
01340  M01S01328.1mu     +++|
01341  M01S01329.1mu     +++|
01342  M01S01330.1mu     +++| OPM      SUBR               ENTRY/EXIT
01343  M01S01331.1mu     +++|          LDN    ZERL        CONVERT DATA
01344  M01S01332.1mu     +++|          CRD    CM
01345  M01S01333.1mu     +++|          LDD    EP
01346  M01S01334.1mu     +++|          STD    CM+4
01347  M01S01335.1mu     +++|          LDD    MA
01348  M01S01336.1mu     +++|          CWD    CM
01349  M01S01337.1mu     +++|          MONITOR  RDCM
01350  M01S01338.1mu     +++|          LDD    MA
01351  M01S01339.1mu     +++|          CRD    CM
01352  M01S01340.1mu     +++|          LDD    CM+4
01353  M01S01341.1mu     +++|          STM    OPMA+12
01354  M01S01342.1mu     +++|          LDC    OPMA        * FIELD BEGINNING AT NN NO COMPARE.*
01355  M01S01343.1mu     +++|          RJM    DFM
01356  M01S01344.1mu     +++|          UJN    OPMX        RETURN
01357  M01S01345.1mu     +++|
01358  M01S01346.1mu     +++|
01359  M01S01347.1mu     +++| OPMA     DATA   C* FIELD BEGINNING AT 00 NO COMPARE.*
01360  M01S01348.1mu     +++| STM      SPACE  4,30
01361  M01S01349.1mu     +++|**        STM - MTS/ATS STATUS ERROR DEFINTION.
01362  M01S01350.1mu     +++|*         GIVES ADDITIONAL DESCRIPTION OF STATUS ERROR MESSAGE.
01363  M01S01351.1mu     +++|*
01364  M01S01352.1mu     +++|*         ISSUES ONE OF THE FOLLOWING MESSAGES FOR MTS.
01365  M01S01353.1mu     +++|*
01366  M01S01354.1mu     +++|*         UNIT HAS MOTION PROBLEMS. (SEVERE START ERROR)
01367  M01S01355.1mu     +++|*         SINGLE FRAME ERROR(S).
01368  M01S01356.1mu     +++|*         LRC ERROR(S).
01369  M01S01357.1mu     +++|*         CRC ERROR(S).
01370  M01S01358.1mu     +++|*         POSTAMBLE ERROR.
01371  M01S01359.1mu     +++|*         MULTI-TRACK PHASE ERROR.
01372  M01S01360.1mu     +++|*         INCORRECT CHARACTER.
01373  M01S01361.1mu     +++|*         PARITY ERROR.
01374  M01S01362.1mu     +++|*
01375  M01S01363.1mu     +++|*         ISSUES ONE OF THE FOLLOWING MESSAGES FOR ATS.
01376  M01S01364.1mu     +++|*
01377  M01S01365.1mu     +++|*         UNIT PROBLEMS. (UNIT CHECK)
01378  M01S01366.1mu     +++|*         SINGLE FRAME ERROR.
01379  M01S01367.1mu     +++|*         CRC ERROR.
01380  M01S01368.1mu     +++|*         INCORRECT CHARACTER.
01381  M01S01369.1mu     +++|*         PARITY ERROR.
01382  M01S01370.1mu     +++|*
01383  M01S01371.1mu     +++|*         USES   T1, T3.
01384  M01S01372.1mu     +++|*
01385  M01S01373.1mu     +++|*         CALLS  DFM.
01386  M01S01374.1mu     +++|
01387  M01S01375.1mu     +++|
01388  M01S01376.1mu     +++| STM      SUBR               ENTRY/EXIT
01389  M01S01377.1mu     +++|          LDD    HP
01390  M01S01378.1mu     +++|          SHN    21-7
01391  M01S01379.1mu     +++|          MJN    STMX        IF CTS

Seq #  *Modification Id* Act 
----------------------------+
01392  M02S01380.ns2764  ---|          SHN    21-4-21+7

Seq #  *Modification Id* Act 
----------------------------+
01393  M02S01381.ns2764  ---|          PJN    STM1        IF MTS CONTROLLER
01394  M01S00001.ns2764  +++|          SHN    7-21
01395  M01S00002.ns2764  +++|          LPN    20
01396  M01S00003.ns2764  +++|          ZJN    STM1        IF MTS CONTROLLER
01397  M01S01382.1mu     +++|          LDN    ATSM-MTSM
01398  M01S01383.1mu     +++| STM1     ADC    MTSM-2      SET ADDRESS OF MESSAGE TABLE
01399  M01S01384.1mu     +++|          STD    T3
01400  M01S01385.1mu     +++| STM2     LDN    2           INCREMENT TO NEXT ENTRY
01401  M01S01386.1mu     +++|          RAD    T3
01402  M01S01387.1mu     +++|          LDI    T3
01403  M01S01388.1mu     +++|          ZJN    STM3        IF END OF TABLE
01404  M01S01389.1mu     +++|          SHN    14          POSITION INDEX INTO DETAILED STATUS
01405  M01S01390.1mu     +++|          STD    T1
01406  M01S01391.1mu     +++|          SHN    6           SET CORRECT SHIFT
01407  M01S01392.1mu     +++|          LPN    77
01408  M01S01393.1mu     +++|          LMC    SHNI
01409  M01S01394.1mu     +++|          STM    STMA
01410  M01S01395.1mu     +++|          LDM    DSTS,T1     CHECK BIT
01411  M01S01396.1mu     +++| STMA     SHN    0
01412  M01S01397.1mu     +++|          PJN    STM2        IF BIT NOT SET IN STATUS BYTE
01413  M01S01398.1mu     +++| STM3     AOD    T3          GET MESSAGE ADDRESS
01414  M01S01399.1mu     +++|          LDI    T3
01415  M01S01400.1mu     +++|          RJM    DFM         ISSUE MESSAGE
01416  M01S01401.1mu     +++|          LJM    STMX        RETURN
01417  M01S01402.1mu     +++| TME      SPACE  4,10
01418  M01S01403.1mu     +++|**        TME - TAPE MANAGER ERROR.
01419  M01S01404.1mu     +++|*
01420  M01S01405.1mu     +++|*         EXIT   END OF SET STATUS SET.
01421  M01S01406.1mu     +++|*                *TFM* ERROR MESSAGE ISSUED.
01422  M01S01407.1mu     +++|*
01423  M01S01408.1mu     +++|*         CALLS  DFM.
01424  M01S01409.1mu     +++|
01425  M01S01410.1mu     +++|
01426  M01S01411.1mu     +++| TME      SUBR               ENTRY/EXIT
01427  M01S01412.1mu     +++|          LDD    UP          SET END OF SET FLAG
01428  M01S01413.1mu     +++|          LPC    7677
01429  M01S01414.1mu     +++|          LMD    HN
01430  M01S01415.1mu     +++|          STD    UP
01431  M01S01416.1mu     +++|          LDC    TMMS
01432  M01S01417.1mu     +++|          RJM    DFM         ISSUE MESSAGE
01433  M01S01418.1mu     +++|          UJN    TMEX        RETURN
01434  M01S01419.1mu     +++| VAE      SPACE  4,10
01435  M01S01420.1mu     +++|**        VAE - ISSUE VSN ASSIGNMENT ERROR MESSAGE.
01436  M01S01421.1mu     +++|*
01437  M01S01422.1mu     +++|*         USES   T1, T3.
01438  M01S01423.1mu     +++|*
01439  M01S01424.1mu     +++|*         CALLS  ACS, DFM.
01440  M01S01425.1mu     +++|
01441  M01S01426.1mu     +++|
01442  M01S01427.1mu     +++| VAE      SUBR               ENTRY/EXIT
01443  M01S01428.1mu     +++|          LDD    PB
01444  M01S01429.1mu     +++|          LMN    /MTX/AME
01445  M01S01430.1mu     +++|          ZJN    VAE1        IF ACS MOUNT ERROR
01446  M01S01431.1mu     +++|          LDC    TRRJ&TACM
01447  M01S01432.1mu     +++| VAE1     LMC    TACM        SET MESSAGE TEXT ADDRESS
01448  M01S01433.1mu     +++|          ADD    PA
01449  M01S01434.1mu     +++|          STD    T3
01450  M01S01435.1mu     +++|          LDI    T3
01451  M01S01436.1mu     +++|          ZJN    VAEX        IF NO MESSAGE
01452  M01S01437.1mu     +++|          LDC    BFMS        SET ASSEMBLY ADDRESS
01453  M01S01438.1mu     +++|          STD    T1
01454  M01S01439.1mu     +++|          LDN    0           INITIALIZE ASSEMBLY BUFFER
01455  M01S01440.1mu     +++|          STI    T1
01456  M01S01441.1mu     +++|          LDC    =Z* VSN *
01457  M01S01442.1mu     +++|          RJM    ACS         ASSEMBLE PREFIX
01458  M01S01443.1mu     +++|          LDC    EVSN
01459  M01S01444.1mu     +++|          RJM    ACS         ASSEMBLE VSN
01460  M01S01445.1mu     +++|          LDI    T3          SET MESSAGE TEXT ADDRESS
01461  M01S01446.1mu     +++|          RJM    ACS         ASSEMBLE MESSAGE TEXT
01462  M01S01447.1mu     +++|          LDC    BFMS
01463  M01S01448.1mu     +++|          RJM    DFM         ISSUE MESSAGE
01464  M01S01449.1mu     +++|          LJM    VAEX        RETURN
01465  M01S01450.1mu     +++| PROC     SPACE  4,10
01466  M01S01451.1mu     +++|**        PROC - DEFINE MESSAGE PROCESSOR FOR MTS/ATS.
01467  M01S01452.1mu     +++|*
01468  M01S01453.1mu     +++|*         PROC   INDEX,BIT,ADDR
01469  M01S01454.1mu     +++|*
01470  M01S01455.1mu     +++|*                *INDEX* = INDEX INTO MTS/ATS DETAILED STATUS.
01471  M01S01456.1mu     +++|*                *BIT* = BIT TO CHECK IN STATUS BYTE.
01472  M01S01457.1mu     +++|*                *ADDR* = ADDRESS OF MESSAGE TO ISSUE IF BIT SET.
01473  M01S01458.1mu     +++|
01474  M01S01459.1mu     +++|
01475  M01S01460.1mu     +++| PROC     MACRO  IN,BIT,AD
01476  M01S01461.1mu     +++|          CON    IN*100+21-BIT,AD
01477  M01S01462.1mu     +++|          ENDM
01478  M01S01463.1mu     +++| MTSM     SPACE  4,10
01479  M01S01464.1mu     +++|**        MTSM - MTS MESSAGE PROCESSOR TABLE.
01480  M01S01465.1mu     +++|*         ENTRY = 2 WORDS.
01481  M01S01466.1mu     +++|*
01482  M01S01467.1mu     +++|*T,       6/INDEX,6/SHIFT,12/ADDR

Figure

01483  M01S01468.1mu     +++|*
01484  M01S01469.1mu     +++|*         INDEX  INDEX INTO MTS/ATS DETAILED STATUS.
01485  M01S01470.1mu     +++|*         SHIFT  CORRECT SHIFT TO TEST DESIRED BIT.
01486  M01S01471.1mu     +++|*         ADDR   ADDRESS OF MESSAGE TO ISSUE IF BIT SET.
01487  M01S01472.1mu     +++|
01488  M01S01473.1mu     +++|
01489  M01S01474.1mu     +++| MTSM     BSS    0
01490  M01S01475.1mu     +++|          LOC    0
01491  M01S01476.1mu     +++|          PROC   1,13,(=C* UNIT HAS MOTION PROBLEMS.*)
01492  M01S01477.1mu     +++|          PROC   1,10,(=C* SINGLE FRAME ERROR.*)
01493  M01S01478.1mu     +++|          PROC   1,7,(=C* LRC ERROR.*)
01494  M01S01479.1mu     +++|          PROC   1,4,(=C* CRC ERROR.*)
01495  M01S01480.1mu     +++|          PROC   1,0,(=C* POSTAMBLE ERROR.*)
01496  M01S01481.1mu     +++|          PROC   3,11,(=C* MULTI-TRACK PHASE ERROR.*)
01497  M01S01482.1mu     +++|          PROC   0,11,(=C* PARITY ERROR.*)
01498  M01S01483.1mu     +++|          PROC   2,5,(=C* INCORRECT CHARACTER.*)
01499  M01S01484.1mu     +++|          CON    0,=C* PARITY ERROR.*  END OF TABLE
01500  M01S01485.1mu     +++|          LOC    *O
01501  M01S01486.1mu     +++| ATSM     SPACE  4,10
01502  M01S01487.1mu     +++|**        ATSM - ATS MESSAGE PROCESSOR TABLE.
01503  M01S01488.1mu     +++|*         ENTRY = 2 WORDS.
01504  M01S01489.1mu     +++|*
01505  M01S01490.1mu     +++|*T,       6/INDEX,6/SHIFT,12/ADDR

Figure

01506  M01S01491.1mu     +++|*
01507  M01S01492.1mu     +++|*         INDEX  INDEX INTO MTS/ATS DETAILED STATUS.
01508  M01S01493.1mu     +++|*         SHIFT  CORRECT SHIFT TO TEST DESIRED BIT.
01509  M01S01494.1mu     +++|*         ADDR   ADDRESS OF MESSAGE TO ISSUE IF BIT SET.
01510  M01S01495.1mu     +++|
01511  M01S01496.1mu     +++|
01512  M01S01497.1mu     +++| ATSM     BSS    0
01513  M01S01498.1mu     +++|          LOC    0
01514  M01S01499.1mu     +++|          PROC   0,12,(=C* UNIT PROBLEMS.*)
01515  M01S01500.1mu     +++|          PROC   2,7,(=C* CRC ERROR.*)
01516  M01S01501.1mu     +++|          PROC   2,10,(=C* CRC ERROR.*)
01517  M01S01502.1mu     +++|          PROC   2,11,(=C* CRC ERROR.*)
01518  M01S01503.1mu     +++|          PROC   2,6,(=C* SINGLE FRAME ERROR.*)
01519  M01S01504.1mu     +++|          PROC   2,2,(=C* INCORRECT CHARACTER.*)
01520  M01S01505.1mu     +++|          PROC   0,11,(=C* PARITY ERROR.*)
01521  M01S01506.1mu     +++|          CON    0,=C* PARITY ERROR.*  END OF TABLE
01522  M01S01507.1mu     +++|          LOC    *O
01523  M01S01508.1mu     +++| TACM     SPACE  4,10
01524  M01S01509.1mu     +++|**        TACM - TABLE OF ACF RESPONSE MESSAGES FOR *AME* ERROR.
01525  M01S01510.1mu     +++|*
01526  M01S01511.1mu     +++|*         INDEXED BY *COMSATF* RESPONSE CODE.
01527  M01S01512.1mu     +++|
01528  M01S01513.1mu     +++|
01529  M01S01514.1mu     +++| TACM     INDEX
01530  M01S01515.1mu     +++|          INDEX  /ATF/NSA,(=Z* NOT IN REQUESTED ACS.*)
01531  M01S01516.1mu     +++|          INDEX  /ATF/URL,(=Z* UNREADABLE OPTICAL LABEL.*)
01532  M01S01517.1mu     +++|          INDEX  /ATF/VNL,(=Z* NOT IN ACS LIBRARY.*)
01533  M01S01518.1mu     +++|          INDEX  /ATF/MXFE
01534  M01S01519.1mu     +++| TNWE     SPACE  4,10
01535  M01S01520.1mu     +++|**        TNWE - TABLE OF MESSAGES FOR *NWE* ERROR.
01536  M01S01521.1mu     +++|*
01537  M01S01522.1mu     +++|*         INDEXED BY *NWE* SUB ERROR CODE.
01538  M01S01523.1mu     +++|
01539  M01S01524.1mu     +++|
01540  M01S01525.1mu     +++| TNWE     INDEX
01541  M01S01526.1mu     +++|          INDEX  /MTX/WTB,(=C* 200 BPI WRITE INCORRECT.*)
01542  M01S01527.1mu     +++|          INDEX  /MTX/LNE,(=C* LABEL NOT EXPIRED.*)
01543  M01S01528.1mu     +++|          INDEX  /MTX/MWSC
01544  M01S01529.1mu     +++| TRRJ     SPACE  4,10
01545  M01S01530.1mu     +++|**        TRRJ - TABLE OF MESSAGES FOR *RRJ* ERROR.
01546  M01S01531.1mu     +++|*
01547  M01S01532.1mu     +++|*         INDEXED BY *RRJ* SUB ERROR CODE.
01548  M01S01533.1mu     +++|
01549  M01S01534.1mu     +++|
01550  M01S01535.1mu     +++| TRRJ     INDEX
01551  M01S01536.1mu     +++|          INDEX  /MTX/WRD,(=Z* NOT WRITE ENABLED.*)
01552  M01S01537.1mu     +++|          INDEX  /MTX/NLB,(=Z* NOT LABELED.*)
01553  M01S01538.1mu     +++|          INDEX  /MTX/CAD,(=Z* CANNOT ACCESS FILE DATA.*)
01554  M01S01539.1mu     +++|          INDEX  /MTX/WVS,(=Z* INTERNAL VSN MISMATCH.*)
01555  M01S01540.1mu     +++|          INDEX  /MTX/MRSC
01556  M01S01541.1mu     +++| TUEM     SPACE  4,10
01557  M01S01542.1mu     +++|****      TUEM - TABLE OF USER ERROR MESSAGES.
01558  M01S01543.1mu     +++|*         ALL USER ERRORS ARE FATAL UNLESS THEY ARE ALSO CONTAINED
01559  M01S01544.1mu     +++|*         IN THE FOLLOWING TABLE.
01560  M01S01545.1mu     +++|
01561  M01S01546.1mu     +++|
01562  M01S01547.1mu     +++| TUEM     INDEX
01563  M01S01548.1mu     +++|          INDEX  /MTX/BEI,(=Z* BOT/EOT ENCOUNTERED, *)
01564  M01S01549.1mu     +++|          INDEX  /MTX/ERM,(=Z* END OF TAPE, *)
01565  M01S01550.1mu     +++|          INDEX  /MTX/BTA,(=Z* BLANK TAPE, *)
01566  M01S01551.1mu     +++|          INDEX  /MTX/NWE,(=Z* NO WRITE ENABLE, *)
01567  M01S01552.1mu     +++|          INDEX  /MTX/BCW,(=Z* BUFFER CONTROL WORD ERROR, *)
01568  M01S01553.1mu     +++|          INDEX  /MTX/RAF,(=Z* READ AFTER WRITE, *)
01569  M01S01554.1mu     +++|          INDEX  /MTX/IOS,(=Z* END OF SET INCORRECT REQUEST, *)
01570  M01S01555.1mu     +++|          INDEX  /MTX/BAE,(=Z* BUFFER ARGUMENT ERROR, *)
01571  M01S01556.1mu     +++|          INDEX  /MTX/SCI,(=Z* CODED I/O NOT SUPPORTED, *)
01572  M01S01557.1mu     +++|          INDEX  /MTX/TPE,(=Z* JOB ABORTED BY TAPE MANAGER, *)
01573  M01S01558.1mu     +++|          INDEX  /MTX/AME,(=Z* ACS MOUNT ERROR, *)
01574  M01S01559.1mu     +++|          INDEX  /MTX/RRJ,(=Z* REEL ASSIGNMENT REJECTED, *)
01575  M01S01560.1mu     +++|          INDEX  /MTX/LAM,(=Z* LABEL MISSING, *)
01576  M01S01561.1mu     +++|          INDEX  /MTX/LCE,(=Z* LABEL CONTENT ERROR, *)
01577  M01S01562.1mu     +++|          INDEX  /MTX/LBE,(=Z* TRAILER BLOCK COUNT ERROR, *)
01578  M01S01563.1mu     +++|          INDEX  /MTX/LPE,(=Z* LABEL PARAMETER ERROR ON OPEN, *)
01579  M01S01564.1mu     +++|          INDEX  /MTX/LIT,(=Z* INCORRECT LABEL TYPE, *)
01580  M01S01565.1mu     +++|          INDEX  /MTX/IXL,(=Z* XL BUFFER/FET PARAMETER ERROR, *)
01581  M01S01566.1mu     +++|          INDEX  /MTX/MFM,(=Z* MULTI-FILE NOT FOUND, *)
01582  M01S01567.1mu     +++|          INDEX  /MTX/EFT,(=Z* ERROR FLAG TERMINATION, *)
01583  M01S01568.1mu     +++|          INDEX  /MTX/SYE,(=Z* SYSTEM ERROR, *)
01584  M01S01569.1mu     +++|          INDEX  /MTX/FPI,(=Z* FILE POSITION INDETERMINATE, *)
01585  M01S01570.1mu     +++|          INDEX  /MTX/OPA,(=Z* WRONG PARITY, *)
01586  M01S01571.1mu     +++|          INDEX  /MTX/BTL,(=Z* BLOCK TOO LARGE, *)
01587  M01S01572.1mu     +++|          INDEX  /MTX/BNE,(=Z* BLOCK SEQUENCE ERROR, *)
01588  M01S01573.1mu     +++|          INDEX  /MTX/STE,(=Z* STATUS ERROR, *)
01589  M01S01574.1mu     +++|          INDEX  /MTX/CMF,(=Z* CHANNEL MALFUNCTION, *)
01590  M01S01575.1mu     +++|          INDEX  /MTX/RDR,(=Z* READY DROP, *)
01591  M01S01576.1mu     +++|          INDEX  /MTX/FRJ,(=Z* FUNCTION REJECT, *)
01592  M01S01577.1mu     +++|          INDEX  /MTX/WEO,(=Z* UNIT HUNG UP ON EOP OR BUSY, *)
01593  M01S01578.1mu     +++|          INDEX  /MTX/CRJ,(=Z* CONNECT REJECT, *)
01594  M01S01579.1mu     +++|          INDEX  /MTX/ERA,(=Z* ERASE LIMIT, *)
01595  M01S01580.1mu     +++|          INDEX  /MTX/PLO,(=Z* POSITION LOST, *)
01596  M01S01581.1mu     +++|          INDEX  /MTX/RCE,(=Z* REPOSITION CORRECTED ERROR, *)
01597  M01S01582.1mu     +++|          INDEX  /MTX/MWT,(=Z* MARGINALLY WRITTEN TAPE, *)
01598  M01S01583.1mu     +++|          INDEX  /MTX/WVF,(=Z* WRITE VERIFY FAILURE, *)
01599  M01S01584.1mu     +++|          INDEX  /MTX/TME,(=Z* WRITE TAPE MARK FAILURE, *)
01600  M01S01585.1mu     +++|          INDEX  /MTX/TCF,(=Z* TAPE CLEANER FAULT, *)
01601  M01S01586.1mu     +++|          INDEX  /MTX/BFR,(=Z* READ ID BURST FAILURE, *)
01602  M01S01587.1mu     +++|          INDEX  /MTX/BFW,(=Z* WRITE ID BURST FAILURE, *)
01603  M01S01588.1mu     +++|          INDEX  /MTX/MERC
01604  M01S01589.1mu     +++|
01605  M01S01590.1mu     +++| TERR     DATA   Z* ERROR CODE 00,*
01606  M01S01591.1mu     +++|
01607  M01S01592.1mu     +++|*         TAME - TABLE OF ADDITIONAL MESSAGES TO BE ISSUED IF ERROR
01608  M01S01593.1mu     +++|*         OCCURS ON THE FIRST BLOCK OF THE TAPE.
01609  M01S01594.1mu     +++|
01610  M01S01595.1mu     +++| TAME     INDEX
01611  M01S01596.1mu     +++|          INDEX  /MTX/BTL,(=C* TAPE FORMAT PROBABLY WRONG.*)
01612  M01S01597.1mu     +++|          INDEX  /MTX/BNE,(=C* TAPE FORMAT PROBABLY WRONG.*)
01613  M01S01598.1mu     +++|          INDEX  /MTX/MERC
01614  M01S01599.1mu     +++| TSPC     SPACE  4,10
01615  M01S01600.1mu     +++|**        TSPC - TABLE OF SPECIAL PROCESSORS.
01616  M01S01601.1mu     +++|
01617  M01S01602.1mu     +++| TSPC     INDEX
01618  M01S01603.1mu     +++|          INDEX  /MTX/NWE,NWE
01619  M01S01604.1mu     +++|          INDEX  /MTX/IOS,MFM
01620  M01S01605.1mu     +++|          INDEX  /MTX/TPE,TME
01621  M01S01606.1mu     +++|          INDEX  /MTX/AME,VAE
01622  M01S01607.1mu     +++|          INDEX  /MTX/RRJ,VAE
01623  M01S01608.1mu     +++|          INDEX  /MTX/LPE,OPM
01624  M01S01609.1mu     +++|          INDEX  /MTX/MFM,MFM
01625  M01S01610.1mu     +++|          INDEX  /MTX/STE,STM
01626  M01S01611.1mu     +++|          INDEX  /MTX/MERC
01627  M01S00013.ns2773  +++|          TITLE  CHECK JOB ERROR FLAG.
01628  M01S00014.ns2773  +++| CJE      SPACE  4,15
01629  M01S00015.ns2773  +++|**        CJE - CHECK JOB ERROR FLAG.
01630  M01S00016.ns2773  +++|*
01631  M01S00017.ns2773  +++|*
01632  M01S00018.ns2773  +++|*T UXRQ   12/ 1,12/ CJE,12/,12/ PA,12/ PB

Figure UXRQ

01633  M01S00019.ns2773  +++|*
01634  M01S00020.ns2773  +++|*         PA = 0.
01635  M01S00021.ns2773  +++|*         PB = 0.
01636  M01S00022.ns2773  +++|*
01637  M01S00023.ns2773  +++|*T, EXIT  12/ 2,12/ CJE,12/,12/ PA,12/ PB

Figure EXIT

01638  M01S00024.ns2773  +++|*
01639  M01S00025.ns2773  +++|*         PA = 0.
01640  M01S00026.ns2773  +++|*         PB = 0 IF NOT TO ABORT *CIO* REQUEST.
01641  M01S00027.ns2773  +++|*         PB .NE. 0 IF TO ABORT *CIO* REQUEST.
01642  M01S00028.ns2773  +++|*
01643  M01S00029.ns2773  +++|*         CALLS  CCR, PRS.
01644  M01S00030.ns2773  +++|
01645  M01S00031.ns2773  +++|
01646  M01S00032.ns2773  +++|          ENTRY  CJE
01647  M01S00033.ns2773  +++|          RJM    PRS         PRESET
01648  M01S00034.ns2773  +++|          LDD    CP          READ ERROR FLAG
01649  M01S00035.ns2773  +++|          ADN    STSW
01650  M01S00036.ns2773  +++|          CRD    CM
01651  M01S00037.ns2773  +++|          LDD    CM+1
01652  M01S00038.ns2773  +++|          LMN    ODET
01653  M01S00039.ns2773  +++|          ZJN    CJE1        IF OPERATOR DROP
01654  M01S00040.ns2773  +++|          LMN    TAET&ODET
01655  M01S00041.ns2773  +++|          ZJN    CJE1        IF USER BREAK TWO
01656  M01S00042.ns2773  +++|          LMN    FSET&TAET
01657  M01S00043.ns2773  +++|          ZJN    CJE1        IF FORCED ERROR
01658  M01S00044.ns2773  +++|          LMN    FSET
01659  M01S00045.ns2773  +++|          SBN    SPET
01660  M01S00046.ns2773  +++|          MJN    CJE2        IF NOT SPECIAL PROCESSING ERROR
01661  M01S00047.ns2773  +++| CJE1     AOD    PB          SET TO ABORT REQUEST
01662  M01S00048.ns2773  +++| CJE2     LDN    0           DO NOT COMPLETE FET
01663  M01S00049.ns2773  +++|          RJM    CCR         COMPLETE REQUEST
01664  M01S00050.ns2773  +++|          LJM    NCPX        EXIT
01665  M01S00051.ns2773  +++|          TITLE  COMMON DATA AREA.
01666  M01S01612.1mu     +++|          SPACE  4,10
01667  M01S01613.1mu     +++|**        UDT DATA.
01668  M01S01614.1mu     +++|
01669  M01S01615.1mu     +++|
01670  M01S01616.1mu     +++|*         *UFRQ*.
01671  M01S01617.1mu     +++|
01672  M01S01618.1mu     +++| FREQ     BSS    1           FILE REQUEST
01673  M01S01619.1mu     +++| FRST     BSS    1           FILE REQUEST STATUS
01674  M01S01620.1mu     +++|          BSS    2           RESERVED
01675  M01S01621.1mu     +++| FNTA     BSS    1           LOCAL FNT ADDRESS
01676  M01S01622.1mu     +++|
01677  M01S01623.1mu     +++|*         *UCIA*.
01678  M01S01624.1mu     +++|
01679  M01S01625.1mu     +++| ICIO     BSS    1           INTERNAL CIO CODE
01680  M01S01626.1mu     +++| FETL     BSS    1           FET LENGTH - 5 AND SKIP COUNT
01681  M01S01627.1mu     +++| SKPC     BSS    1           SKIP COUNT
01682  M01S01628.1mu     +++| FETA     BSS    2           FET ADDRESS
01683  M01S01629.1mu     +++|
01684  M01S01630.1mu     +++|*         *UCIB*.
01685  M01S01631.1mu     +++|
01686  M01S01632.1mu     +++| ECIO     BSS    1           EXTERNAL *CIO* CODE
01687  M01S01633.1mu     +++| FETO     BSS    1           FET OPTIONS
01688  M01S01634.1mu     +++| LVLN     BSS    1           LEVEL NUMBER / MLRS
01689  M01S01635.1mu     +++| MLRS     BSS    2           MLRS
01690  M01S01636.1mu     +++|
01691  M01S01637.1mu     +++|*         *UDS1* - *UDS3*.
01692  M01S01638.1mu     +++|
01693  M01S01639.1mu     +++| DSTS     BSS    3*5         DETAILED STATUS
01694  M01S01640.1mu     +++|
01695  M01S01641.1mu     +++|*         *UESN*.
01696  M01S01642.1mu     +++|
01697  M01S01643.1mu     +++| EVSN     BSS    5           EXTERNAL VSN, FLAGS
01698  M01S01644.1mu     +++|
01699  M01S01645.1mu     +++|*         *UMSG* AND MESAGE TERMINATOR.
01700  M01S01646.1mu     +++|
01701  M01S01647.1mu     +++| TMMS     BSSZ   4*5         TAPE MANAGER MESSAGE
01702  M01S01648.1mu     +++|          BSSZ   1           TERMINATOR
01703  M01S01649.1mu     +++|          SPACE  4,10
01704  M01S01650.1mu     +++|          TITLE  SUBROUTINES.
01705  M01S01651.1mu     +++| CCR      SPACE  4,15
01706  M01S01652.1mu     +++|**        CCR - COMPLETE CIO REQUEST.
01707  M01S01653.1mu     +++|*
01708  M01S01654.1mu     +++|*         ENTRY  (A) = FET COMPLETION CODE IF .NE. 0.
01709  M01S01655.1mu     +++|*                (A) = 0 IF NOT TO COMPLETE FET.
01710  M01S01656.1mu     +++|*
01711  M01S01657.1mu     +++|*         EXIT   PP ASSIGNED TO MAGNET CONTROL POINT.
01712  M01S01658.1mu     +++|*                BLOCKS SKIPPED COUNT CLEARED IN UDT.
01713  M01S01659.1mu     +++|*
01714  M01S01660.1mu     +++|*         USES   CM - CM+4.
01715  M01S01661.1mu     +++|*
01716  M01S01662.1mu     +++|*         CALLS  RCP, UAD.
01717  M01S01663.1mu     +++|
01718  M01S01664.1mu     +++|
01719  M01S01665.1mu     +++| CCR      SUBR               ENTRY/EXIT
01720  M01S01666.1mu     +++|          RJM    RCP         COMPLETE FET AND RETURN TO MAGNET CP
01721  M01S01667.1mu     +++|          RJM    UAD
01722  M01S01668.1mu     +++|          ADK    /MTX/UBLC   GET BLOCKS SKIPPED
01723  M01S01669.1mu     +++|          CRD    CM
01724  M01S01670.1mu     +++|          LDN    0           CLEAR BLOCKS SKIPPED
01725  M01S01671.1mu     +++|          STD    CM+4
01726  M01S01672.1mu     +++|          RJM    UAD
01727  M01S01673.1mu     +++|          ADK    /MTX/UBLC   UPDATE UDT
01728  M01S01674.1mu     +++|          CWD    CM
01729  M01S01675.1mu     +++|          UJN    CCRX        RETURN
01730  M01S01676.1mu     +++| FAD      SPACE  4,10
01731  M01S01677.1mu     +++|**        FAD - SET FET ADDRESS.
01732  M01S01678.1mu     +++|*
01733  M01S01679.1mu     +++|*         ENTRY  (A) = OFFSET OF WORD IN FET.
01734  M01S01680.1mu     +++|*
01735  M01S01681.1mu     +++|*         EXIT   (A) = ADDRESS + RA IF FET ADDRESS IN FL.
01736  M01S01682.1mu     +++|*                (A) = 0 IF FET ADDRESS NOT IN FL.
01737  M01S01683.1mu     +++|
01738  M01S01684.1mu     +++|
01739  M01S01685.1mu     +++| FAD1     LDN    0           SET ADDRESS ERROR
01740  M01S01686.1mu     +++|
01741  M01S01687.1mu     +++| FAD      SUBR               ENTRY/EXIT
01742  M01S01688.1mu     +++|          STD    T0          SAVE WORD OFFSET
01743  M01S01689.1mu     +++|          LDM    FETA
01744  M01S01690.1mu     +++|          SHN    14
01745  M01S01691.1mu     +++|          ADM    FETA+1
01746  M01S01692.1mu     +++|          ADD    T0
01747  M01S01693.1mu     +++|          SHN    14
01748  M01S01694.1mu     +++|          SBD    FL
01749  M01S01695.1mu     +++|          SHN    6
01750  M01S01696.1mu     +++|          PJN    FAD1        IF ADDRESS NOT IN FL
01751  M01S01697.1mu     +++|          SHN    14
01752  M01S01698.1mu     +++|          ADD    FL
01753  M01S01699.1mu     +++|          ADD    RA
01754  M01S01700.1mu     +++|          SHN    6
01755  M01S01701.1mu     +++|          UJN    FADX        RETURN
01756  M01S01702.1mu     +++|          SPACE  4,10
01757  M01S01703.1mu     +++|**        COMMON DECKS.
01758  M01S01704.1mu     +++|
01759  M01S01705.1mu     +++|
01760  M01S01706.1mu     +++|*CALL     COMPACS
01761  M01S01707.1mu     +++|*CALL     COMPANS
01762  M01S01708.1mu     +++|*CALL     COMPC2D
01763  M01S01709.1mu     +++|          SPACE  4,10
01764  M01S01710.1mu     +++|**        *0DF* BUFFER.
01765  M01S01711.1mu     +++|
01766  M01S01712.1mu     +++|
01767  M01S01713.1mu     +++| B0DF     EQU    *+1         *0DF* OVERLAY BUFFER
01768  M01S01714.1mu     +++|          ERRNG  BFMS-B0DF-ZDFL  CHECK LENGTH OF *0DF*
01769  M01S01715.1mu     +++|          TITLE  OVERLAID SUBROUTINES.
01770  M01S01716.1mu     +++| PRS      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
01771  M02S01717.ns2773  ---|**        PRS - PRESET *CUF* AND *MAB* FUNCTIONS.
01772  M01S00052.ns2773  +++|**        PRS - PRESET *CUF*, *MAB*, AND *CJE* FUNCTIONS.
01773  M01S01718.1mu     +++|*
01774  M01S01719.1mu     +++|*         EXIT   PP ASSIGNED TO USER CONTROL POINT.
01775  M01S01720.1mu     +++|*
01776  M01S01721.1mu     +++|*         CALLS  CCP, UAD.
01777  M01S01722.1mu     +++|
01778  M01S01723.1mu     +++|
01779  M01S01724.1mu     +++| PRS      SUBR               ENTRY/EXIT
01780  M01S01725.1mu     +++|          RJM    UAD
01781  M01S01726.1mu     +++|          ADK    /MTX/UFRQ   GET CIO PARAMETERS
01782  M01S01727.1mu     +++|          CRM    FREQ,TR
01783  M01S01728.1mu     +++|          ADK    /MTX/UDS1-/MTX/UFRQ-3  GET DETAILED STATUS
01784  M01S01729.1mu     +++|          CRM    DSTS,TR
01785  M01S01730.1mu     +++|          ADK    /MTX/UBLC-/MTX/UDS1-3  GET BLOCK ACCUMULATOR
01786  M01S01731.1mu     +++|          CRD    CM
01787  M01S01732.1mu     +++|          ADK    /MTX/UMSG-/MTX/UBLC  GET TAPE MANAGER MESSAGE
01788  M01S01733.1mu     +++|          CRM    TMMS,TR
01789  M01S01734.1mu     +++|          CRM    TMMS+5*3,ON
01790  M01S01735.1mu     +++|          ADK    /MTX/UESN-/MTX/UMSG-4  GET EXTERNAL VSN
01791  M01S01736.1mu     +++|          CRM    EVSN,ON
01792  M01S01737.1mu     +++|          LDN    0           TERMINATE VSN FOR MESSAGE ASSEMBLY
01793  M01S01738.1mu     +++|          STM    EVSN+3
01794  M01S01739.1mu     +++|          LDD    CM+4        SAVE BLOCKS SKIPPED
01795  M01S01740.1mu     +++|          STD    T8
01796  M01S01741.1mu     +++|          RJM    CCP         CHANGE TO USER CP
01797  M01S01742.1mu     +++|          ZJN    PRS2        IF CHANGE MADE
01798  M01S01743.1mu     +++|          LDD    FN

Seq #  *Modification Id* Act 
----------------------------+
01799  M02S01744.ns2773  ---|          LMN    /MTX/MAB

Seq #  *Modification Id* Act 
----------------------------+
01800  M02S01745.ns2773  ---|          NJN    PRS1        IF NOT CHECK ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
01801  M02S01746.ns2773  ---|          LDD    PB

Seq #  *Modification Id* Act 
----------------------------+
01802  M02S01747.ns2773  ---|          NJN    PRS1        IF NOT CHECK ERROR FLAG
01803  M01S00053.ns2773  +++|          LMN    /MTX/CJE
01804  M01S00054.ns2773  +++|          NJN    PRS1        IF NOT CHECK JOB ABORT
01805  M01S01748.1mu     +++|          LJM    NCPX        RETURN NORMAL COMPLETION STATUS
01806  M01S01749.1mu     +++|
01807  M01S01750.1mu     +++| PRS1     LJM    RJBX        SET RECALL ON JOB ROLLED OUT
01808  M01S01751.1mu     +++|
01809  M01S01752.1mu     +++| PRS2     LDD    T8
01810  M01S01753.1mu     +++|          ZJN    PRS3        IF NO BLOCKS SKIPPED
01811  M01S01754.1mu     +++|          STM    RCPC        SET BLOCKS SKIPPED
01812  M01S01755.1mu     +++|          LDC    ITPO*100    SET SRU INCREMENT
01813  M01S01756.1mu     +++|          STM    RCPA
01814  M01S01757.1mu     +++| PRS3     LJM    PRSX        RETURN
01815  M01S01758.1mu     +++|          OVERLAY (PROCESS AUXILIARY FUNCTION.)
01816  M01S01759.1mu     +++| PAF      SPACE  4,10
01817  M01S01760.1mu     +++|**        PAF - PROCESS AUXILIARY FUNCTION REQUEST.
01818  M01S01761.1mu     +++|*
01819  M01S01762.1mu     +++|*         REQUEST FORMAT -
01820  M01S01763.1mu     +++|*
01821  M01S01764.1mu     +++|*         12/ 0,12/ *AFN*,12/ 0,12/ PM,12/ FC
01822  M01S01765.1mu     +++|*
01823  M01S01766.1mu     +++|*         PM     OPTIONAL PARAMETER.
01824  M01S01767.1mu     +++|*         FC     FUNCTION CODE.
01825  M01S01768.1mu     +++|*
01826  M01S01769.1mu     +++|*         CALLS  CJA, HNG, IAM, IRM, LGA, RVS, USP, VME, VSE.
01827  M01S01770.1mu     +++|
01828  M01S01771.1mu     +++|
01829  M01S01772.1mu     +++|          ENTRY  PAF         ENTRY
01830  M01S01773.1mu     +++|          LDD    PB
01831  M01S01774.1mu     +++|          SBN    /MTX/AFMX
01832  M01S01775.1mu     +++|          MJN    PAF1        IF VALID FUNCTION CODE
01833  M01S01776.1mu     +++|          RJM    HNG         HANG PP
01834  M01S01777.1mu     +++| PAF1     LDM    TAFN,PB
01835  M01S01778.1mu     +++|          STD    T1
01836  M01S01779.1mu     +++|          LJM    0,T1        PROCESS FUNCTION
01837  M01S01780.1mu     +++| TAFN     SPACE  4,10
01838  M01S01781.1mu     +++|**        TAFN - TABLE OF *AFN* REQUEST FUNCTION CODES.
01839  M01S01782.1mu     +++|
01840  M01S01783.1mu     +++|
01841  M01S01784.1mu     +++| TAFN     INDEX
01842  M01S01785.1mu     +++|          INDEX  /MTX/AFRA,IAM  ISSUE REEL ASSIGNMENT MESSAGES
01843  M01S01786.1mu     +++|          INDEX  /MTX/AFRR,IRM  ISSUE REEL RETURN MESSAGES
01844  M01S01787.1mu     +++|          INDEX  /MTX/AFLA,LGA  LOG STATISTICAL ACCUMULATORS
01845  M01S01788.1mu     +++|          INDEX  /MTX/AFNV,RVS  RETURN NEXT VSN
01846  M01S01789.1mu     +++|          INDEX  /MTX/AFUS,USP  INITIATE UNIT SWAP
01847  M01S01790.1mu     +++|          INDEX  /MTX/AFCJ,CJA  CLEAR JOB ASSIGNMENT
01848  M01S01791.1mu     +++|          INDEX  /MTX/AFVE,VSE  ISSUE VSN MOUNTED EVENT
01849  M01S01792.1mu     +++|          INDEX  /MTX/AFME,VME  ISSUE VSN EVENT AFTER ACS MOUNT ERROR
01850  M01S01793.1mu     +++|          INDEX  /MTX/AFMX   TERMINATE TABLE
01851  M01S01794.1mu     +++| IAM      SPACE  4,10
01852  M01S01795.1mu     +++|**        IAM - ISSUE REEL ASSIGNMENT MESSAGES.
01853  M01S01796.1mu     +++|*
01854  M01S01797.1mu     +++|*         CALLS  IRA, IVM.
01855  M01S01798.1mu     +++|
01856  M01S01799.1mu     +++|
01857  M01S01800.1mu     +++| IAM      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01858  M02S01801.ns2770  ---|          LDD    UP

Seq #  *Modification Id* Act 
----------------------------+
01859  M02S01802.ns2770  ---|          SHN    21-12

Seq #  *Modification Id* Act 
----------------------------+
01860  M02S01803.ns2770  ---|          PJN    IAM1        IF INITIAL REEL ASSIGNMENT
01861  M01S01804.1mu     +++|          RJM    IVM         ISSUE NEXT VSN ASSIGNED MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
01862  M02S01805.ns2770  ---| IAM1     RJM    IRA         ISSUE REEL ASSIGNED MESSAGE

Proceed to Part 1