Deck 1MC

6 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.1mc     +++|          IDENT  1MC,MTC
00002  M01S00002.1mc     +++|          PERIPH
00003  M01S00003.1mc     +++|          BASE   MIXED
00004  M01S00004.1mc     +++|          SST
00005  M01S00005.1mc     +++|*COMMENT  1MC - MONITOR PARITY ERROR REPORTING.

Line S00006 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.1mc     +++|          TITLE  1MC - MONITOR PARITY ERROR REPORTING.
00009  M01S00008.1mc     +++|          SPACE  4
00010  M01S00009.1mc     +++|***       1MC - MONITOR PARITY ERROR REPORTING.
00011  M01S00010.1mc     +++|*         W. E. GOEBEL       75/08/25.
00012  M01S00011.1mc     +++|          SPACE  4
00013  M01S00012.1mc     +++|***              *1MC* IS CALLED BY *CPUMTR* TO REPORT ECS PARITY
00014  M01S00013.1mc     +++|*         ERRORS.  *1MC* IS FORCED CM RESIDENT BY *SLL* WHEN ECS
00015  M01S00014.1mc     +++|*         IS PRESENT.  THIS IS NEEDED BECAUSE *1MC* CAN BE CALLED
00016  M01S00015.1mc     +++|*         DIRECTLY BY *CPUMTR* MONITOR MODE.  IN THIS CASE *CPUMTR*
00017  M01S00016.1mc     +++|*         IS WAITING FOR *1MC* TO INDICATE IT IS READY TO RECIEVE
00018  M01S00017.1mc     +++|*         DATA.  BECAUSE OF THIS *1MC* MUST NOT DEPEND UPON ISSUING
00019  M01S00018.1mc     +++|*         ANY MONITOR FUNCTION TO LOAD.  THUS THE CM RESIDENCE
00020  M01S00019.1mc     +++|*         REQUIREMENT.
00021  M01S00020.1mc     +++|*                *1MC* PERFORMS THE BUFFERING IN OF ERROR DATA AND
00022  M01S00021.1mc     +++|*         THEN CALLS *2MN* TO FORMAT AND ISSUE THE ACTUAL ERROR
00023  M01S00022.1mc     +++|*         MESSAGES.  THIS IS TO KEEP THE CM REQUIREMENT OF *1MC* AT
00024  M01S00023.1mc     +++|*         A MINIMUM.  IT SHOULD BE NOTED THAT *2MN* SHOULD NEVER
00025  M01S00024.1mc     +++|*         BE ECS RESIDENT.
00026  M01S00025.1mc     +++|          SPACE  4
00027  M01S00026.1mc     +++|***       CALL.
00028  M01S00027.1mc     +++|*
00029  M01S00028.1mc     +++|*

Line S00029 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00030  M02S00029.252l678 ---|*T IR     18/ *1MC*,6/ SCP,12/ ,6/ RW,18/ WC

Figure IR

00031  M01S00001.252l678 +++|*T IR     18/ *1MC*,6/ SCP,12/  EST,6/ RW,18/ WC

Figure IR

00032  M01S00030.1mc     +++|*         SCP    SYSTEM CONTROL POINT NUMBER.
00033  M01S00002.252l678 +++|*         EST    EXTENDED MEMORY EST ORDINAL.
00034  M01S00031.1mc     +++|*         RW     READ / WRITE FLAG.
00035  M01S00032.1mc     +++|*                1 = READ
00036  M01S00033.1mc     +++|*                2 = WRITE
00037  M01S00034.1mc     +++|*         WC     WORD COUNT OF BLOCK TRANSFER.
00038  M01S00035.1mc     +++|*
00039  M01S00036.1mc     +++|*T,MB     36/, 24/ CB

Figure MB

00040  M01S00037.1mc     +++|*         CB     COMMUNICATIONS BUFFER ADDRESS.
00041  M01S00038.1mc     +++|*
00042  M01S00039.1mc     +++|*         ECS ERROR INFORMATION IS BUFFERED FROM *CPUMTR* VIA A
00043  M01S00040.1mc     +++|*         COMMUNICATIONS BUFFER.  IT IS *1MC*-S RESPONSIBILITY TO
00044  M01S00041.1mc     +++|*         CLEAR THE BUFFER INTERLOCK AFTER IT READS THE DATA.
00045  M01S00042.1mc     +++|*         THIS BUFFER HAS THE FOLLOWING FORMAT -
00046  M01S00043.1mc     +++|*
00047  M01S00044.1mc     +++|*T,CB     1/ C, 47/ ,12/ IL

Figure CB

00048  M01S00045.1mc     +++|*T,CB+1   6/, 6/ CD, 6/ RT, 18/ CMA, 24/ ECA

Figure CB+1

00049  M01S00046.1mc     +++|*T,CB+2   60/ BAD DATA

Figure CB+2

00050  M01S00047.1mc     +++|*T,CB+3   60/ GOOD DATA

Figure CB+3

00051  M01S00048.1mc     +++|*  .
00052  M01S00049.1mc     +++|*  .
00053  M01S00050.1mc     +++|*  .
00054  M01S00051.1mc     +++|*T,CB+N   60/0

Figure CB+N

00055  M01S00052.1mc     +++|*
00056  M01S00053.1mc     +++|*         C      COMPLETE FLAG (SIGNALS *1MC* TO READ DATA).
00057  M01S00054.1mc     +++|*         IL     BUFFER INTERLOCK (NON-ZERO WHEN SET).
00058  M01S00055.1mc     +++|*         CD     3/, 1/ RU, 1/ BD, 1/ GD
00059  M01S00056.1mc     +++|*           RU = RECOVERED / UNRECOVERED FLAG.
00060  M01S00057.1mc     +++|*                0 = RECOVERED
00061  M01S00058.1mc     +++|*                1 = UNRECOVERED
00062  M01S00059.1mc     +++|*           BD = 1 IF BAD DATA PRESENT.
00063  M01S00060.1mc     +++|*           GD = 1 IF GOOD DATA PRESENT.
00064  M01S00061.1mc     +++|*         RT     RETRY COUNT.
00065  M01S00062.1mc     +++|*         CMA    CM ADDRESS OF TRANSFER.
00066  M01S00063.1mc     +++|*         ECA    ECS ADDRESS OF TRANSFER.
00067  M01S00064.1mc     +++|*
00068  M01S00065.1mc     +++|*         THE ERROR DATA IS TERMINATED BY A ZERO WORD.
00069  M01S00066.1mc     +++|          SPACE  4
00070  M01S00067.1mc     +++|***       OPERATOR MESSAGES.
00071  M01S00068.1mc     +++|*
00072  M01S00069.1mc     +++|*
00073  M01S00070.1mc     +++|*         * USER ECS DISABLED.* DUE TO UNRECOVERED ECS PARITY
00074  M01S00071.1mc     +++|*                ERRORS SCHEDULING OF USER ECS JOBS HAS
00075  M01S00072.1mc     +++|*                BEEN DISABLED.
00076  M01S00073.1mc     +++|          SPACE  4
00077  M01S00074.1mc     +++|*CALL     COMPMAC
00078  M01S00001.251l664 +++|*CALL     COMSCPS
00079  M01S00075.1mc     +++|*CALL     COMSDFS
00080  M01S00076.1mc     +++|*CALL     COMSEVT
00081  M01S00077.1mc     +++|*CALL     COMSMSC
00082  M01S00003.252l678 +++|*CALL     COMSMSP
00083  M01S00078.1mc     +++|*CALL     COMSPIM
00084  M01S00079.1mc     +++|          SPACE  4
00085  M01S00080.1mc     +++|**        DIRECT LOCATION ASSIGNMENTS.
00086  M01S00081.1mc     +++|
00087  M01S00082.1mc     +++|
00088  M01S00083.1mc     +++| ZR       EQU    20 - 24     ZERO WORD
00089  M01S00084.1mc     +++| BP       EQU    25          BUFFER POINTER
00090  M01S00085.1mc     +++| CN       EQU    30          RECOVERED/UNRECOVERED FLAG
00091  M01S00086.1mc     +++|          TITLE  MACRO DEFINITIONS.
00092  M01S00087.1mc     +++|          SPACE  4,10
00093  M01S00088.1mc     +++|**        OVERLAY CONTROL.
00094  M01S00089.1mc     +++|
00095  M01S00090.1mc     +++| .N       SET    0
00096  M01S00091.1mc     +++| OVLB     MICRO  1,, 2M      BASE OVERLAY NAME
00097  M01S00092.1mc     +++| OVERLAY  SPACE  4,10
00098  M01S00093.1mc     +++|**        OVERLAY - GENERATE OVERLAY CONSTANTS.
00099  M01S00094.1mc     +++|*
00100  M01S00095.1mc     +++|*
00101  M01S00096.1mc     +++|*         OVERLAY  (TEXT),LADDR
00102  M01S00097.1mc     +++|*
00103  M01S00098.1mc     +++|*         ENTRY  *TEXT* = TEXT OF SUBTITLES.
00104  M01S00099.1mc     +++|*                *LADDR* = LOAD ADDRESS FOR OVERLAY, DEFAULT OVL.
00105  M01S00100.1mc     +++|
00106  M01S00101.1mc     +++|
00107  M01S00102.1mc     +++|          PURGMAC  OVERLAY
00108  M01S00103.1mc     +++|
00109  M01S00104.1mc     +++| OVERLAY  MACRO  TEXT,OVL
00110  M01S00105.1mc     +++|          MACREF OVERLAY
00111  M01S00106.1mc     +++|          QUAL
00112  M01S00107.1mc     +++| .N       SET    .N+1
00113  M01S00108.1mc     +++| .M       MICRO  .N,1, NOPQRSTUVWXYZ
00114  M01S00109.1mc     +++| .O       MICRO  1,3, "OVLB"".M"
00115  M01S00110.1mc     +++|          QUAL   ".O"
00116  M01S00111.1mc     +++|          TTL    1MC/".O" - TEXT
00117  M01S00112.1mc     +++|          TITLE
00118  M01S00113.1mc     +++|          IDENT  ".O",OVL    TEXT
00119  M01S00114.1mc     +++|*COMMENT  1MC - TEXT

Line S00115 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00120  M02S00115.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1982.
00121  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00122  M01S00116.1mc     +++|          ORG    OVL
00123  M01S00117.1mc     +++|          ENDM
00124  M01S00118.1mc     +++|          SPACE  4
00125  M01S00119.1mc     +++|          TITLE  MTC - BUFFER IN ERROR DATA.
00126  M01S00120.1mc     +++| MTC      SPACE  4
00127  M01S00121.1mc     +++|**        MTC - MAIN PROGRAM.
00128  M01S00122.1mc     +++|
00129  M01S00123.1mc     +++|
00130  M01S00124.1mc     +++|          ORG    PPFW
00131  M01S00125.1mc     +++|
00132  M01S00126.1mc     +++| MTC      LDD    MP+3        ASSEMBLE BUFFER ADDRESS
00133  M01S00127.1mc     +++|          RAM    MTCA-1
00134  M01S00128.1mc     +++|          STM    MTCB-1
00135  M01S00129.1mc     +++|          LDD    MP+4
00136  M01S00130.1mc     +++|          STM    MTCA
00137  M01S00131.1mc     +++|          STM    MTCB
00138  M01S00132.1mc     +++|          LDN    ZERL        SET ZERO WORD
00139  M01S00133.1mc     +++|          CRD    ZR
00140  M01S00134.1mc     +++|          LDN    MCBL        BUFFER LENGTH
00141  M01S00135.1mc     +++|          STD    T1
00142  M01S00136.1mc     +++| MTC1     LDC    **          READ BUFFER
00143  M01S00137.1mc     +++| MTCA     EQU    *-1         COMMUNICATIONS BUFFER ADDRESS
00144  M01S00138.1mc     +++|          CRM    BUF,T1
00145  M01S00139.1mc     +++|          LDM    BUF
00146  M01S00140.1mc     +++|          SHN    21-13
00147  M01S00141.1mc     +++|          PJN    MTC1        IF BUFFER NOT COMPLETE
00148  M01S00142.1mc     +++|          LDC    **          CLEAR BUFFER INTERLOCK
00149  M01S00143.1mc     +++| MTCB     EQU    *-1         COMMUNICATIONS BUFFER ADDRESS
00150  M01S00144.1mc     +++|          CWD    ZR
00151  M01S00145.1mc     +++|          EXECUTE  2MN
00152  M01S00146.1mc     +++|          SPACE  4
00153  M01S00147.1mc     +++| OVL      EQU    PPFW
00154  M01S00148.1mc     +++| BUF      EQU    PPFW-5+500*2  ALLOW TWO SECTORS FOR *2MN*
00155  M01S00149.1mc     +++| BUFL     EQU    MCBL*5      BUFFER LENGTH
00156  M01S00150.1mc     +++| MXBL     EQU    EPFW-5*3+1  MAXIMUM BUFFER LENGTH
00157  M01S00151.1mc     +++|          ERRNG  MXBL-BUF-BUFL   CHECK BUFFER OVERFLOW
00158  M01S00152.1mc     +++|          TTL    1MC/2MC - PROCESS ERROR DATA.
00159  M01S00153.1mc     +++|          TITLE  MAIN ROUTINE.
00160  M01S00154.1mc     +++|          OVERLAY (PROCESS ERROR DATA.),OVL
00161  M01S00155.1mc     +++|          SPACE  4
00162  M01S00156.1mc     +++|***       2MN - REPORT PARITY ERRORS.
00163  M01S00157.1mc     +++|
00164  M01S00158.1mc     +++|
00165  M01S00159.1mc     +++|
00166  M01S00160.1mc     +++| PEM      LJM    *           ENTRY
00167  M01S00161.1mc     +++|
00168  M01S00162.1mc     +++|*         SET UP THOSE FIELDS IN THE BML MESSAGE WHICH ARE CONSTANT
00169  M01S00163.1mc     +++|*         FOR ALL ERRORS.
00170  M01S00164.1mc     +++|

Line S00165 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00171  M02S00165.252l678 ---|          LDD    IR+3        SET SYMPTOM CODE IN HEADER

Line S00166 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00172  M02S00166.252l678 ---|          SHN    -7

Line S00167 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00173  M02S00167.252l678 ---|          ADC    /COMSDFS/HS0040+/COMSDFS/D1MC*400
00174  M01S00004.252l678 +++|          LDN    PARE        SET ERROR CODE
00175  M01S00005.252l678 +++|          STM    MSGA+12
00176  M01S00006.252l678 +++|          LDC    /COMSDFS/HS0040+/COMSDFS/D1MC*400
00177  M01S00168.1mc     +++|          STM    MSGA+1
00178  M01S00169.1mc     +++|          LDK    MMFL        ADD MACHINE ID TO MESSAGE
00179  M01S00170.1mc     +++|          CRD    CM
00180  M01S00171.1mc     +++|          LDD    CM
00181  M01S00172.1mc     +++|          STM    MSGA+10

Line S00173 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00182  M02S00173.252l678 ---|          LDK    EMEQ        ADD EST ORDINAL TO MESSAGE
00183  M01S00007.252l678 +++|          LDD    IR+2        ADD EST ORDINAL TO MESSAGE
00184  M01S00174.1mc     +++|          STM    MSGA+5
00185  M01S00175.1mc     +++|
00186  M01S00176.1mc     +++|*         DETERMINE THE MESSAGE ID WHICH CORRESPONDS WITH THIS DEVICE
00187  M01S00177.1mc     +++|*         AND ADD IT TO THE BML MESSAGE HEADER.
00188  M01S00178.1mc     +++|
00189  M01S00179.1mc     +++|          SFA    EST         GET EST ENTRY FOR DEVICE
00190  M01S00180.1mc     +++|          ADK    EQDE
00191  M01S00181.1mc     +++|          CRD    CM
00192  M01S00182.1mc     +++|          LDD    CM+4        GET WORD *DILL* FROM THE MST
00193  M01S00183.1mc     +++|          SHN    3
00194  M01S00184.1mc     +++|          ADK    DILL
00195  M01S00185.1mc     +++|          CRD    CM

Line S00186 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`ns2525`

Seq #  *Modification Id* Act 
----------------------------+
00196  M02S00186.ns2525  ---|          LDD    CM+3        GET EXTENDED MEMORY TYPE BITS

Line S00187 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`ns2525`

Seq #  *Modification Id* Act 
----------------------------+
00197  M02S00187.ns2525  ---|          LPC    777

Line S00188 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`ns2525`

Seq #  *Modification Id* Act 
----------------------------+
00198  M02S00188.ns2525  ---|          STD    T3

Line S00189 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`ns2525`

Seq #  *Modification Id* Act 
----------------------------+
00199  M02S00189.ns2525  ---|          LDK    PEMBL
00200  M01S00001.ns2525  +++|          LDN    PEMBL
00201  M01S00190.1mc     +++|          STD    T1
00202  M01S00191.1mc     +++| PEM1     LCN    2           SCAN TABLE FOR A MATCH
00203  M01S00192.1mc     +++|          RAD    T1
00204  M01S00193.1mc     +++|          ZJN    PEM2        IF DEVICE NOT FOUND IN TABLE
00205  M01S00194.1mc     +++|          LDM    PEMB-2,T1

Line S00195 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`ns2525`

Seq #  *Modification Id* Act 
----------------------------+
00206  M02S00195.ns2525  ---|          LMD    T3
00207  M01S00002.ns2525  +++|          LMD    CM+3
00208  M01S00003.ns2525  +++|          LPC    707
00209  M01S00196.1mc     +++|          NJN    PEM1        IF A MATCH HAS NOT YET BEEN FOUND
00210  M01S00197.1mc     +++|          LDM    PEMB-1,T1
00211  M01S00198.1mc     +++| PEM2     STM    MSGA+0      ADD MESSAGE ID TO MESSAGE
00212  M01S00199.1mc     +++|
00213  M01S00200.1mc     +++|*         FOR EACH ERROR IN THE BUFFER, ISSUE A BML ERROR MESSAGE.
00214  M01S00201.1mc     +++|
00215  M01S00202.1mc     +++|          LDC    BUF+5
00216  M01S00203.1mc     +++|          STD    BP          SET BUFFER POINTER
00217  M01S00001.ns2375  +++|          LDN    ZERL        SET END OF DATA
00218  M01S00002.ns2375  +++|          CRM    BUF+MCBL*5,ON
00219  M01S00204.1mc     +++| PEM3     LDM    1,BP        CHECK FOR END OF BUFFER
00220  M01S00205.1mc     +++|          ZJN    PEM4        IF NO MORE MESSAGES IN BUFFER
00221  M01S00206.1mc     +++|          RJM    IBM         ISSUE BML MESSAGE
00222  M01S00207.1mc     +++|          LDN    3*5         ADVANCE POINTER TO NEXT ERROR IN BUFFER
00223  M01S00208.1mc     +++|          RAD    BP
00224  M01S00209.1mc     +++|          UJN    PEM3        CHECK FOR ANOTHER MESSAGE
00225  M01S00210.1mc     +++|
00226  M01S00211.1mc     +++| PEM4     MONITOR  DPPM
00227  M01S00212.1mc     +++|          LJM    PPR         RETURN TO PP RESIDENT
00228  M01S00213.1mc     +++|
00229  M01S00214.1mc     +++|
00230  M01S00215.1mc     +++| MSGA     BSSZ   6*5         BML MESSAGE BUFFER
00231  M01S00216.1mc     +++|          SPACE  4,10
00232  M01S00217.1mc     +++| PEMB     BSS    0           TABLE OF MESSAGE IDENTIFERS
00233  M01S00218.1mc     +++|
00234  M01S00219.1mc     +++|          CON    112,/COMSDFS/RM0070    (DP)  ECS I  - DC135 DDP
00235  M01S00220.1mc     +++|          CON    110,/COMSDFS/RM0071    (DE)  ECS I  - COUPLER
00236  M01S00221.1mc     +++|          CON    212,/COMSDFS/RM0072    (DP)  ECS II - DC135 DDP
00237  M01S00222.1mc     +++|          CON    210,/COMSDFS/RM0073    (DE)  ECS II - COUPLER
00238  M01S00223.1mc     +++|          CON    111,/COMSDFS/RM0074    (DP)  ECS I  - DC145 DDP
00239  M01S00224.1mc     +++|          CON    211,/COMSDFS/RM0075    (DP)  ECS II - DC145 DDP

Line S00225 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00240  M02S00225.252l678 ---|          CON    320,/COMSDFS/RM0076    (DP)  LCME   - COUPLER
00241  M01S00008.252l678 +++|          CON    320,/COMSDFS/RM0076    (DE)  LCME   - COUPLER
00242  M01S00226.1mc     +++|          CON    510,/COMSDFS/RM0207    (DE)  ESM    - COUPLER
00243  M01S00227.1mc     +++|          CON    511,/COMSDFS/RM0210    (DP)  ESM    - LOW SPEED PORT
00244  M01S00228.1mc     +++|
00245  M01S00229.1mc     +++| PEMBL    EQU    *-PEMB+2    MESSAGE ID TABLE LENGTH
00246  M01S00230.1mc     +++|          TITLE  SUBROUTINES.
00247  M01S00231.1mc     +++| DUE      SPACE  4,15
00248  M01S00232.1mc     +++|**        DUE - DISABLE USER ECS.
00249  M01S00233.1mc     +++|*
00250  M01S00234.1mc     +++|*         USES   CM - CM+4.
00251  M01S00235.1mc     +++|*
00252  M01S00236.1mc     +++|*         MACROS MONITOR.
00253  M01S00237.1mc     +++|
00254  M01S00238.1mc     +++|
00255  M01S00239.1mc     +++| DUE      SUBR               ENTRY/EXIT
00256  M01S00240.1mc     +++|          LDN    ECRL
00257  M01S00241.1mc     +++|          CRD    CM

Line S00242 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00258  M02S00242.252l678 ---|          LDD    CM+2
00259  M01S00009.252l678 +++|          LDD    CM+1
00260  M01S00243.1mc     +++|          SBD    CM+4
00261  M01S00244.1mc     +++|          ZJN    DUEX        IF USER ECS NOT DEFINED
00262  M01S00010.252l678 +++|          LDK    UEML
00263  M01S00011.252l678 +++|          CRD    CM
00264  M01S00012.252l678 +++|          LDD    CM+2
00265  M01S00013.252l678 +++|          LMD    IR+2
00266  M01S00014.252l678 +++|          LPC    777
00267  M01S00015.252l678 +++|          NJN    DUEX        IF NOT USER ECS EQUIPMENT
00268  M01S00245.1mc     +++|          LDN    SSTL
00269  M01S00246.1mc     +++|          CRD    CM
00270  M01S00247.1mc     +++|          LDD    CM
00271  M01S00248.1mc     +++|          SHN    21-5
00272  M01S00249.1mc     +++|          MJN    DUEX        IF ECS ALREADY DISABLED
00273  M01S00250.1mc     +++|          LDN    40
00274  M01S00251.1mc     +++|          RAD    CM
00275  M01S00252.1mc     +++|          LDN    SSTL
00276  M01S00253.1mc     +++|          CWD    CM
00277  M01S00254.1mc     +++|          LDN    NCPL        WRITE MESSAGE AT SYSTEM CP
00278  M01S00255.1mc     +++|          CRD    CM
00279  M01S00256.1mc     +++|          AOD    CM+1
00280  M01S00257.1mc     +++|          SHN    7
00281  M01S00258.1mc     +++|          ADN    MS2W
00282  M01S00259.1mc     +++|          CWM    DUEA,TR
00283  M01S00260.1mc     +++|          LDN    ZERL        ISSUE USER *ECS* DISABLED EVENT
00284  M01S00261.1mc     +++|          CRD    CM
00285  M01S00262.1mc     +++|          LDN    UEDE
00286  M01S00263.1mc     +++|          STD    CM+4
00287  M01S00264.1mc     +++|          MONITOR  EATM
00288  M01S00265.1mc     +++|          LJM    DUEX        RETURN
00289  M01S00266.1mc     +++|
00290  M01S00267.1mc     +++|
00291  M01S00268.1mc     +++| DUEA     DATA   C*  USER ECS DISABLED.  *
00292  M01S00269.1mc     +++| IBM      SPACE  4,10
00293  M01S00270.1mc     +++|**        IBM - ISSUE BML MESSAGE.
00294  M01S00271.1mc     +++|*
00295  M01S00272.1mc     +++|*         USES   CM - CM+4, IR+3 - IR+4, BP, CN.
00296  M01S00273.1mc     +++|*
00297  M01S00274.1mc     +++|*         CALLS  DFM, DUE.
00298  M01S00002.251l664 +++|*
00299  M01S00003.251l664 +++|*         MACROS MONITOR.
00300  M01S00275.1mc     +++|
00301  M01S00276.1mc     +++|
00302  M01S00277.1mc     +++| IBM      SUBR               ENTRY/EXIT
00303  M01S00278.1mc     +++|          LDD    IR+3        ADD READ/WRITE FLAG TO MESSAGE
00304  M01S00279.1mc     +++|          SHN    -6
00305  M01S00280.1mc     +++|          LPN    2
00306  M01S00281.1mc     +++|          STM    MSGA+6
00307  M01S00282.1mc     +++|          LDM    1,BP        ADD RETRY COUNT TO MESSAGE
00308  M01S00283.1mc     +++|          SCN    77
00309  M01S00284.1mc     +++|          RAM    MSGA+6
00310  M01S00285.1mc     +++|          LDM    3,BP        ADD ECS ADDRESS TO MESSAGE

Line S00286 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00311  M02S00286.252l678 ---|          STM    MSGA+15

Line S00287 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00312  M02S00287.252l678 ---|          LDM    4,BP

Line S00288 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00313  M02S00288.252l678 ---|          STM    MSGA+16
00314  M01S00016.252l678 +++|          STM    MSGA+22
00315  M01S00017.252l678 +++|          LDM    4,BP
00316  M01S00018.252l678 +++|          STM    MSGA+23
00317  M01S00289.1mc     +++|          LDM    1,BP        ADD CM ADDRESS TO MESSAGE
00318  M01S00290.1mc     +++|          LPN    77

Line S00291 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00319  M02S00291.252l678 ---|          STM    MSGA+34

Line S00292 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00320  M02S00292.252l678 ---|          LDM    2,BP

Line S00293 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00321  M02S00293.252l678 ---|          STM    MSGA+35
00322  M01S00019.252l678 +++|          STM    MSGA+15
00323  M01S00020.252l678 +++|          LDM    2,BP
00324  M01S00021.252l678 +++|          STM    MSGA+16
00325  M01S00294.1mc     +++|
00326  M01S00295.1mc     +++|*         SET RECOVERED/UNRECOVERED STATUS.
00327  M01S00296.1mc     +++|
00328  M01S00297.1mc     +++|          LDI    BP
00329  M01S00298.1mc     +++|          LPN    4
00330  M01S00299.1mc     +++|          ZJN    IBM1        IF ERROR WAS RECOVERED
00331  M01S00300.1mc     +++|          RJM    DUE         DISABLE USER ECS
00332  M01S00301.1mc     +++|          LDN    1           SET ERROR UNRECOVERED
00333  M01S00302.1mc     +++| IBM1     RAM    MSGA+6
00334  M01S00303.1mc     +++|
00335  M01S00304.1mc     +++|*         ADD WORD COUNT TO MESSAGE.  IF GOOD OR BAD DATA WAS PASSED
00336  M01S00305.1mc     +++|*         ALONG WITH THE OTHER ERROR DATA, THE WORD COUNT USED IS ONE,
00337  M01S00306.1mc     +++|*         BECAUSE THE ERROR REFERS TO AN ACTUAL ADDRESS.  IF NO
00338  M01S00307.1mc     +++|*         GOOD/BAD DATA WAS PASSED, THE GIVEN WORD COUNT IS USED,
00339  M01S00308.1mc     +++|*         INDICATING THAT THE ERROR OCCURRED SOMEWHERE WITHIN THAT
00340  M01S00309.1mc     +++|*         WORD COUNT RANGE.  THIS OCCURS WHEN *CPUMTR* RECOVERS AN
00341  M01S00310.1mc     +++|*         ERROR BUT IS UNABLE TO DETERMINE THE EXACT ADDRESS WHICH
00342  M01S00311.1mc     +++|*         CAUSED THE HALF EXIT.
00343  M01S00312.1mc     +++|
00344  M01S00313.1mc     +++|          LDI    BP
00345  M01S00314.1mc     +++|          LPN    3
00346  M01S00315.1mc     +++|          NJN    IBM2        IF GOOD OR BAD DATA WAS PASSED
00347  M01S00316.1mc     +++|          LDD    IR+3
00348  M01S00317.1mc     +++|          LPN    77
00349  M01S00318.1mc     +++|          SHN    14
00350  M01S00319.1mc     +++|          LMD    IR+4

Line S00320 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00351  M02S00320.252l678 ---|          UJN    IBM2.1      ADD WORD COUNT
00352  M01S00022.252l678 +++|          UJN    IBM3        ADD WORD COUNT
00353  M01S00321.1mc     +++|
00354  M01S00322.1mc     +++| IBM2     LDN    1

Line S00323 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00355  M02S00323.252l678 ---| IBM2.1   STM    MSGA+14

Line S00324 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00356  M02S00324.252l678 ---|          SHN    -14

Line S00325 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00357  M02S00325.252l678 ---|          STM    MSGA+13
00358  M01S00023.252l678 +++| IBM3     STM    MSGA+21
00359  M01S00024.252l678 +++|          SHN    -14
00360  M01S00025.252l678 +++|          STM    MSGA+20
00361  M01S00326.1mc     +++|
00362  M01S00327.1mc     +++|*         ADD GOOD AND BAD DATA TO MESSAGE.
00363  M01S00328.1mc     +++|

Line S00329 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00364  M02S00329.252l678 ---|          LDC    MSGA+17
00365  M01S00026.252l678 +++|          LDC    MSGA+24
00366  M01S00330.1mc     +++|          STM    IBMC
00367  M01S00331.1mc     +++|          LDD    BP
00368  M01S00332.1mc     +++|          ADN    5
00369  M01S00333.1mc     +++|          STM    IBMA
00370  M01S00334.1mc     +++|          ADN    5
00371  M01S00335.1mc     +++|          STM    IBMB
00372  M01S00336.1mc     +++|          LDI    BP          CHECK FOR BAD DATA
00373  M01S00337.1mc     +++|          LPN    2
00374  M01S00338.1mc     +++|          SHN    -1

Line S00339 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00375  M02S00339.252l678 ---|          STM    MSGA+12

Line S00340 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00376  M02S00340.252l678 ---|          ZJN    IBM3        IF NO BAD DATA
00377  M01S00027.252l678 +++|          STM    MSGA+17
00378  M01S00028.252l678 +++|          ZJN    IBM4        IF NO BAD DATA
00379  M01S00341.1mc     +++|          LDD    MA
00380  M01S00342.1mc     +++|          CWM    **,ON
00381  M01S00343.1mc     +++| IBMA     EQU    *-1
00382  M01S00344.1mc     +++|          SBN    1

Line S00345 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00383  M02S00345.252l678 ---|          CRM    MSGA+17,ON

Line S00346 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00384  M02S00346.252l678 ---| IBM3     LDI    BP          CHECK FOR GOOD DATA

Line S00347 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00385  M02S00347.252l678 ---|          LPN    1

Line S00348 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00386  M02S00348.252l678 ---|          ZJN    IBM5        IF NO GOOD DATA
00387  M01S00029.252l678 +++|          CRM    MSGA+24,ON
00388  M01S00030.252l678 +++| IBM4     LDI    BP          CHECK FOR GOOD DATA
00389  M01S00031.252l678 +++|          LPN    1
00390  M01S00032.252l678 +++|          ZJN    IBM6        IF NO GOOD DATA
00391  M01S00349.1mc     +++|          LMI    BP
00392  M01S00350.1mc     +++|          LPN    3

Line S00351 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00393  M02S00351.252l678 ---|          ZJN    IBM4        IF ONLY GOOD DATA
00394  M01S00033.252l678 +++|          ZJN    IBM5        IF ONLY GOOD DATA
00395  M01S00352.1mc     +++|          LDN    5
00396  M01S00353.1mc     +++|          RAM    IBMC
00397  M01S00354.1mc     +++|          LDN    2

Line S00355 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00398  M02S00355.252l678 ---| IBM4     LMN    1

Line S00356 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00399  M02S00356.252l678 ---|          STM    MSGA+12
00400  M01S00034.252l678 +++| IBM5     LMN    1
00401  M01S00035.252l678 +++|          STM    MSGA+17
00402  M01S00357.1mc     +++|          LDD    MA
00403  M01S00358.1mc     +++|          CWM    IBMB,ON
00404  M01S00359.1mc     +++| IBMB     EQU    *-1
00405  M01S00360.1mc     +++|          SBN    1

Line S00361 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00406  M02S00361.252l678 ---|          CRM    MSGA+17,ON

Line S00362 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00407  M02S00362.252l678 ---|*         CRM    MSGA+24,ON

Line S00363 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00408  M02S00363.252l678 ---| IBMC     EQU    *-1

Line S00364 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00409  M02S00364.252l678 ---| IBM5     LDN    6*5         SET BML MESSAGE LENGTH
00410  M01S00036.252l678 +++|          CRM    MSGA+24,ON
00411  M01S00037.252l678 +++|*         CRM    MSGA+31,ON
00412  M01S00038.252l678 +++| IBMC     EQU    *-1
00413  M01S00039.252l678 +++| IBM6     LDN    6*5         SET BML MESSAGE LENGTH
00414  M01S00365.1mc     +++|          STD    CM+1
00415  M01S00366.1mc     +++|          LDC    MSGA+BMLN   ISSUE BML MESSAGE
00416  M01S00367.1mc     +++|          RJM    DFM
00417  M01S00368.1mc     +++|
00418  M01S00369.1mc     +++|*         IF THE ERROR IS UNRECOVERED, ISSUE A MESSAGE TO THE ERRLOG
00419  M01S00370.1mc     +++|*         AND TO THE SYSTEM AND JOB DAYFILES INDICATING THE TYPE OF
00420  M01S00371.1mc     +++|*         ERROR AND THE DEVICE ON WHICH THE ERROR OCCURRED.
00421  M01S00372.1mc     +++|
00422  M01S00373.1mc     +++|          LDM    MSGA+6
00423  M01S00374.1mc     +++|          LPN    1
00424  M01S00375.1mc     +++|          STD    CN

Line S00376 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00425  M02S00376.252l678 ---|          ZJN    IBM6        IF THE ERROR WAS RECOVERED

Line S00377 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00426  M02S00377.252l678 ---|          LDC    EMEQ*100+2R0  PUT EST ORDINAL INTO DAYFILE MESSAGE
00427  M01S00040.252l678 +++|          ZJN    IBM7        IF RECOVERED ERROR
00428  M01S00041.252l678 +++|          LDD    IR+2
00429  M01S00042.252l678 +++|          SHN    -3
00430  M01S00043.252l678 +++|          RJM    C2D
00431  M01S00044.252l678 +++|          STM    IBMG+1
00432  M01S00045.252l678 +++|          LDD    IR+2        SET EST ORDINAL IN DAYFILE MESSAGE
00433  M01S00046.252l678 +++|          LPN    7
00434  M01S00047.252l678 +++|          SHN    6
00435  M01S00048.252l678 +++|          ADC    2R0
00436  M01S00378.1mc     +++|          STM    IBMG+2
00437  M01S00379.1mc     +++|          LDC    IBMG        ISSUE SYSTEM AND DAYFILE MESSAGES
00438  M01S00380.1mc     +++|          RJM    DFM
00439  M01S00381.1mc     +++|          LDC    IBMG+ERLN   ISSUE ERRLOG MESSAGE
00440  M01S00382.1mc     +++|          RJM    DFM
00441  M01S00383.1mc     +++|
00442  M01S00384.1mc     +++|*         INCREMENT THE RECOVERED OR UNRECOVERED ERROR COUNTER IN THE
00443  M01S00385.1mc     +++|*         MST FOR THE CURRENT DEVICE.
00444  M01S00386.1mc     +++|

Line S00387 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00445  M02S00387.251l664 ---| IBM6     LDK    EMEQ        READ ERROR COUNTERS

Line S00388 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00446  M02S00388.251l664 ---|          SFA    EST

Line S00389 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00447  M02S00389.251l664 ---|          ADK    EQDE

Line S00390 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00448  M02S00390.251l664 ---|          CRD    CM

Line S00391 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00449  M02S00391.251l664 ---|          LDD    CM+4

Line S00392 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00450  M02S00392.251l664 ---|          SHN    3

Line S00393 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00451  M02S00393.251l664 ---|          ADK    CTLL

Line S00394 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00452  M02S00394.251l664 ---|          CRM    IBMD,ON

Line S00395 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00453  M02S00395.251l664 ---|          SBN    1

Line S00396 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00454  M02S00396.251l664 ---|          CRM    IBME,ON

Line S00397 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00455  M02S00397.251l664 ---|          SBN    1

Line S00398 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00456  M02S00398.251l664 ---|          STD    CM+4        SET ADDRESS IN *UTEM* CALL

Line S00399 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00457  M02S00399.251l664 ---|          SHN    -14

Line S00400 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00458  M02S00400.251l664 ---|          STD    CM+3

Line S00401 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00459  M02S00401.251l664 ---|          AOM    IBME+3,CN   INCREMENT THE APPROPRIATE COUNTER

Line S00402 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00460  M02S00402.251l664 ---|          LMM    IBMD+3,CN

Line S00403 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00461  M02S00403.251l664 ---|          SHN    0-13

Line S00404 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00462  M02S00404.251l664 ---|          NJP    IBM7        IF COUNTER OVERFLOW

Line S00405 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00463  M02S00405.251l664 ---|          STM    IBMD+1      SET LOW ORDER BIT POSITION

Line S00406 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00464  M02S00406.251l664 ---|          STM    IBME+1

Line S00407 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00465  M02S00407.251l664 ---|          LDN    24D         SET FIELD SIZE

Line S00408 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00466  M02S00408.251l664 ---|          STM    IBME

Line S00409 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00467  M02S00409.251l664 ---|          ADC    4000

Line S00410 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00468  M02S00410.251l664 ---|          STM    IBMD

Line S00411 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00469  M02S00411.251l664 ---|          LDK    PDTL        SET CURRENT DATE AND TIME

Line S00412 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00470  M02S00412.251l664 ---|          CRM    IBMF,ON

Line S00413 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00471  M02S00413.251l664 ---|          LDC    1*100+36D   SET TABLE OFFSET AND FIELD SIZE

Line S00414 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00472  M02S00414.251l664 ---|          ERRNZ  EDLL-CTLL-1 ERROR IF VALUE CHANGES

Line S00415 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00473  M02S00415.251l664 ---|          STM    IBMF

Line S00416 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00474  M02S00416.251l664 ---|          LDN    3

Line S00417 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00475  M02S00417.251l664 ---|          STD    CM+1        SAVE WORD COUNT FOR *UTEM* CALL

Line S00418 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00476  M02S00418.251l664 ---|          LDD    MA

Line S00419 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00477  M02S00419.251l664 ---|          CWM    IBMD,TR     MOVE PARAMETER WORDS TO MESSAGE BUFFER

Line S00420 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00478  M02S00420.251l664 ---|          MONITOR  UTEM      ISSUE *UTEM* FUNCTION

Line S00421 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00479  M02S00421.251l664 ---|          LDD    CM+1

Line S00422 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00480  M02S00422.251l664 ---|          ZJN    IBM7        IF UPDATE WAS SUCCESSFUL

Line S00423 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00481  M02S00423.251l664 ---|          LJM    IBM6        REATTEMPT INCREMENT OF COUNTER

Line S00424 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00482  M02S00424.251l664 ---|

Line S00425 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00483  M02S00425.251l664 ---| IBM7     LJM    IBMX        RETURN

Line S00426 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00484  M02S00426.251l664 ---|

Line S00427 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00485  M02S00427.251l664 ---|

Line S00428 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00486  M02S00428.251l664 ---| IBMD     VFD    36/403000000000,24/0

Line S00429 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00487  M02S00429.251l664 ---| IBME     VFD    36/003000000000,24/0

Line S00430 Modification History
`M01` (Added by)	`1mc`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00488  M02S00430.251l664 ---| IBMF     VFD    60/0

Line S00004 Modification History
`M01` (Added by)	`251l664`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00489  M02S00004.252l678 ---| IBM6     LDD    CN          SET BYTE NUMBER
00490  M01S00049.252l678 +++| IBM7     LDD    CN          SET BYTE NUMBER
00491  M01S00005.251l664 +++|          ADN    3
00492  M01S00006.251l664 +++|          STD    CM+2

Line S00007 Modification History
`M01` (Added by)	`251l664`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00493  M02S00007.252l678 ---|          LDK    EMEQ        SET EST ORDINAL
00494  M01S00050.252l678 +++|          LDD    IR+2        SET EST ORDINAL
00495  M01S00008.251l664 +++|          STD    CM+1
00496  M01S00009.251l664 +++|          LDK    ICTS        SET SUBFUNCTION
00497  M01S00010.251l664 +++|          STD    CM+3

Line S00011 Modification History
`M01` (Added by)	`251l664`
`M02` (Updated by)	`253l688`

Seq #  *Modification Id* Act 
----------------------------+
00498  M02S00011.253l688 ---|          MONITOR  STBM      INCREMENT ERROR COUNTER
00499  M01S00001.253l688 +++|          MONITOR  SMDM      INCREMENT ERROR COUNTER
00500  M01S00012.251l664 +++|          LJM    IBMX        RETURN
00501  M01S00013.251l664 +++|
00502  M01S00014.251l664 +++|
00503  M01S00431.1mc     +++| IBMG     DATA   C*EQ000 PE MASS STORAGE ERROR.*
00504  M01S00051.252l678 +++|          SPACE  4,10
00505  M01S00052.252l678 +++|*         COMMON DECKS.
00506  M01S00053.252l678 +++|
00507  M01S00054.252l678 +++|
00508  M01S00055.252l678 +++|*CALL     COMPC2D
00509  M01S00432.1mc     +++|
00510  M01S00433.1mc     +++|          ERRPL  *-BUF  OVERLAY OVERFLOWS BUFFER
00511  M01S00434.1mc     +++|
00512  M01S00435.1mc     +++|          END