Deck 1MC

Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.1mc     +++|          IDENT  1MC,MTC
00002  M00S00002.1mc     +++|          PERIPH
00003  M00S00003.1mc     +++|          BASE   MIXED
00004  M00S00004.1mc     +++|          SST
00005  M00S00005.1mc     +++|*COMMENT  1MC - MONITOR PARITY ERROR REPORTING.

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

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.1mc     +++|          TITLE  1MC - MONITOR PARITY ERROR REPORTING.
00009  M00S00008.1mc     +++|          SPACE  4
00010  M00S00009.1mc     +++|***       1MC - MONITOR PARITY ERROR REPORTING.
00011  M00S00010.1mc     +++|*         W. E. GOEBEL       75/08/25.
00012  M00S00011.1mc     +++|          SPACE  4
00013  M00S00012.1mc     +++|***              *1MC* IS CALLED BY *CPUMTR* TO REPORT ECS PARITY
00014  M00S00013.1mc     +++|*         ERRORS.  *1MC* IS FORCED CM RESIDENT BY *SLL* WHEN ECS
00015  M00S00014.1mc     +++|*         IS PRESENT.  THIS IS NEEDED BECAUSE *1MC* CAN BE CALLED
00016  M00S00015.1mc     +++|*         DIRECTLY BY *CPUMTR* MONITOR MODE.  IN THIS CASE *CPUMTR*
00017  M00S00016.1mc     +++|*         IS WAITING FOR *1MC* TO INDICATE IT IS READY TO RECIEVE
00018  M00S00017.1mc     +++|*         DATA.  BECAUSE OF THIS *1MC* MUST NOT DEPEND UPON ISSUING
00019  M00S00018.1mc     +++|*         ANY MONITOR FUNCTION TO LOAD.  THUS THE CM RESIDENCE
00020  M00S00019.1mc     +++|*         REQUIREMENT.
00021  M00S00020.1mc     +++|*                *1MC* PERFORMS THE BUFFERING IN OF ERROR DATA AND
00022  M00S00021.1mc     +++|*         THEN CALLS *2MN* TO FORMAT AND ISSUE THE ACTUAL ERROR
00023  M00S00022.1mc     +++|*         MESSAGES.  THIS IS TO KEEP THE CM REQUIREMENT OF *1MC* AT
00024  M00S00023.1mc     +++|*         A MINIMUM.  IT SHOULD BE NOTED THAT *2MN* SHOULD NEVER
00025  M00S00024.1mc     +++|*         BE ECS RESIDENT.
00026  M00S00025.1mc     +++|          SPACE  4
00027  M00S00026.1mc     +++|***       CALL.
00028  M00S00027.1mc     +++|*
00029  M00S00028.1mc     +++|*

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

Figure IR

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

Figure IR

00032  M00S00030.1mc     +++|*         SCP    SYSTEM CONTROL POINT NUMBER.
00033  M01S00002.252l678 +++|*         EST    EXTENDED MEMORY EST ORDINAL.
00034  M00S00031.1mc     +++|*         RW     READ / WRITE FLAG.
00035  M00S00032.1mc     +++|*                1 = READ
00036  M00S00033.1mc     +++|*                2 = WRITE
00037  M00S00034.1mc     +++|*         WC     WORD COUNT OF BLOCK TRANSFER.
00038  M00S00035.1mc     +++|*
00039  M00S00036.1mc     +++|*T,MB     36/, 24/ CB

Figure MB

00040  M00S00037.1mc     +++|*         CB     COMMUNICATIONS BUFFER ADDRESS.
00041  M00S00038.1mc     +++|*
00042  M00S00039.1mc     +++|*         ECS ERROR INFORMATION IS BUFFERED FROM *CPUMTR* VIA A
00043  M00S00040.1mc     +++|*         COMMUNICATIONS BUFFER.  IT IS *1MC*-S RESPONSIBILITY TO
00044  M00S00041.1mc     +++|*         CLEAR THE BUFFER INTERLOCK AFTER IT READS THE DATA.
00045  M00S00042.1mc     +++|*         THIS BUFFER HAS THE FOLLOWING FORMAT -
00046  M00S00043.1mc     +++|*
00047  M00S00044.1mc     +++|*T,CB     1/ C, 47/ ,12/ IL

Figure CB

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

Figure CB+1

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

Figure CB+2

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

Figure CB+3

00051  M00S00048.1mc     +++|*  .
00052  M00S00049.1mc     +++|*  .
00053  M00S00050.1mc     +++|*  .
00054  M00S00051.1mc     +++|*T,CB+N   60/0

Figure CB+N

00055  M00S00052.1mc     +++|*
00056  M00S00053.1mc     +++|*         C      COMPLETE FLAG (SIGNALS *1MC* TO READ DATA).
00057  M00S00054.1mc     +++|*         IL     BUFFER INTERLOCK (NON-ZERO WHEN SET).
00058  M00S00055.1mc     +++|*         CD     3/, 1/ RU, 1/ BD, 1/ GD
00059  M00S00056.1mc     +++|*           RU = RECOVERED / UNRECOVERED FLAG.
00060  M00S00057.1mc     +++|*                0 = RECOVERED
00061  M00S00058.1mc     +++|*                1 = UNRECOVERED
00062  M00S00059.1mc     +++|*           BD = 1 IF BAD DATA PRESENT.
00063  M00S00060.1mc     +++|*           GD = 1 IF GOOD DATA PRESENT.
00064  M00S00061.1mc     +++|*         RT     RETRY COUNT.
00065  M00S00062.1mc     +++|*         CMA    CM ADDRESS OF TRANSFER.
00066  M00S00063.1mc     +++|*         ECA    ECS ADDRESS OF TRANSFER.
00067  M00S00064.1mc     +++|*
00068  M00S00065.1mc     +++|*         THE ERROR DATA IS TERMINATED BY A ZERO WORD.
00069  M00S00066.1mc     +++|          SPACE  4
00070  M00S00067.1mc     +++|***       OPERATOR MESSAGES.
00071  M00S00068.1mc     +++|*
00072  M00S00069.1mc     +++|*
00073  M00S00070.1mc     +++|*         * USER ECS DISABLED.* DUE TO UNRECOVERED ECS PARITY
00074  M00S00071.1mc     +++|*                ERRORS SCHEDULING OF USER ECS JOBS HAS
00075  M00S00072.1mc     +++|*                BEEN DISABLED.
00076  M00S00073.1mc     +++|          SPACE  4
00077  M00S00074.1mc     +++|*CALL     COMPMAC

Seq #  *Modification Id* Act 
----------------------------+
00078  M01S00001.251l664 +++|*CALL     COMSCPS
00079  M00S00075.1mc     +++|*CALL     COMSDFS
00080  M00S00076.1mc     +++|*CALL     COMSEVT
00081  M00S00077.1mc     +++|*CALL     COMSMSC

Seq #  *Modification Id* Act 
----------------------------+
00082  M01S00003.252l678 +++|*CALL     COMSMSP
00083  M00S00078.1mc     +++|*CALL     COMSPIM
00084  M00S00079.1mc     +++|          SPACE  4
00085  M00S00080.1mc     +++|**        DIRECT LOCATION ASSIGNMENTS.
00086  M00S00081.1mc     +++|
00087  M00S00082.1mc     +++|
00088  M00S00083.1mc     +++| ZR       EQU    20 - 24     ZERO WORD
00089  M00S00084.1mc     +++| BP       EQU    25          BUFFER POINTER
00090  M00S00085.1mc     +++| CN       EQU    30          RECOVERED/UNRECOVERED FLAG
00091  M00S00086.1mc     +++|          TITLE  MACRO DEFINITIONS.
00092  M00S00087.1mc     +++|          SPACE  4,10
00093  M00S00088.1mc     +++|**        OVERLAY CONTROL.
00094  M00S00089.1mc     +++|
00095  M00S00090.1mc     +++| .N       SET    0
00096  M00S00091.1mc     +++| OVLB     MICRO  1,, 2M      BASE OVERLAY NAME
00097  M00S00092.1mc     +++| OVERLAY  SPACE  4,10
00098  M00S00093.1mc     +++|**        OVERLAY - GENERATE OVERLAY CONSTANTS.
00099  M00S00094.1mc     +++|*
00100  M00S00095.1mc     +++|*
00101  M00S00096.1mc     +++|*         OVERLAY  (TEXT),LADDR
00102  M00S00097.1mc     +++|*
00103  M00S00098.1mc     +++|*         ENTRY  *TEXT* = TEXT OF SUBTITLES.
00104  M00S00099.1mc     +++|*                *LADDR* = LOAD ADDRESS FOR OVERLAY, DEFAULT OVL.
00105  M00S00100.1mc     +++|
00106  M00S00101.1mc     +++|
00107  M00S00102.1mc     +++|          PURGMAC  OVERLAY
00108  M00S00103.1mc     +++|
00109  M00S00104.1mc     +++| OVERLAY  MACRO  TEXT,OVL
00110  M00S00105.1mc     +++|          MACREF OVERLAY
00111  M00S00106.1mc     +++|          QUAL
00112  M00S00107.1mc     +++| .N       SET    .N+1
00113  M00S00108.1mc     +++| .M       MICRO  .N,1, NOPQRSTUVWXYZ
00114  M00S00109.1mc     +++| .O       MICRO  1,3, "OVLB"".M"
00115  M00S00110.1mc     +++|          QUAL   ".O"
00116  M00S00111.1mc     +++|          TTL    1MC/".O" - TEXT
00117  M00S00112.1mc     +++|          TITLE
00118  M00S00113.1mc     +++|          IDENT  ".O",OVL    TEXT
00119  M00S00114.1mc     +++|*COMMENT  1MC - TEXT

Seq #  *Modification Id* Act 
----------------------------+
00120  M01S00115.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1982.

Seq #  *Modification Id* Act 
----------------------------+
00121  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00122  M00S00116.1mc     +++|          ORG    OVL
00123  M00S00117.1mc     +++|          ENDM
00124  M00S00118.1mc     +++|          SPACE  4
00125  M00S00119.1mc     +++|          TITLE  MTC - BUFFER IN ERROR DATA.
00126  M00S00120.1mc     +++| MTC      SPACE  4
00127  M00S00121.1mc     +++|**        MTC - MAIN PROGRAM.
00128  M00S00122.1mc     +++|
00129  M00S00123.1mc     +++|
00130  M00S00124.1mc     +++|          ORG    PPFW
00131  M00S00125.1mc     +++|
00132  M00S00126.1mc     +++| MTC      LDD    MP+3        ASSEMBLE BUFFER ADDRESS
00133  M00S00127.1mc     +++|          RAM    MTCA-1
00134  M00S00128.1mc     +++|          STM    MTCB-1
00135  M00S00129.1mc     +++|          LDD    MP+4
00136  M00S00130.1mc     +++|          STM    MTCA
00137  M00S00131.1mc     +++|          STM    MTCB
00138  M00S00132.1mc     +++|          LDN    ZERL        SET ZERO WORD
00139  M00S00133.1mc     +++|          CRD    ZR
00140  M00S00134.1mc     +++|          LDN    MCBL        BUFFER LENGTH
00141  M00S00135.1mc     +++|          STD    T1
00142  M00S00136.1mc     +++| MTC1     LDC    **          READ BUFFER
00143  M00S00137.1mc     +++| MTCA     EQU    *-1         COMMUNICATIONS BUFFER ADDRESS
00144  M00S00138.1mc     +++|          CRM    BUF,T1
00145  M00S00139.1mc     +++|          LDM    BUF
00146  M00S00140.1mc     +++|          SHN    21-13
00147  M00S00141.1mc     +++|          PJN    MTC1        IF BUFFER NOT COMPLETE
00148  M00S00142.1mc     +++|          LDC    **          CLEAR BUFFER INTERLOCK
00149  M00S00143.1mc     +++| MTCB     EQU    *-1         COMMUNICATIONS BUFFER ADDRESS
00150  M00S00144.1mc     +++|          CWD    ZR
00151  M00S00145.1mc     +++|          EXECUTE  2MN
00152  M00S00146.1mc     +++|          SPACE  4
00153  M00S00147.1mc     +++| OVL      EQU    PPFW
00154  M00S00148.1mc     +++| BUF      EQU    PPFW-5+500*2  ALLOW TWO SECTORS FOR *2MN*
00155  M00S00149.1mc     +++| BUFL     EQU    MCBL*5      BUFFER LENGTH
00156  M00S00150.1mc     +++| MXBL     EQU    EPFW-5*3+1  MAXIMUM BUFFER LENGTH
00157  M00S00151.1mc     +++|          ERRNG  MXBL-BUF-BUFL   CHECK BUFFER OVERFLOW
00158  M00S00152.1mc     +++|          TTL    1MC/2MC - PROCESS ERROR DATA.
00159  M00S00153.1mc     +++|          TITLE  MAIN ROUTINE.
00160  M00S00154.1mc     +++|          OVERLAY (PROCESS ERROR DATA.),OVL
00161  M00S00155.1mc     +++|          SPACE  4
00162  M00S00156.1mc     +++|***       2MN - REPORT PARITY ERRORS.
00163  M00S00157.1mc     +++|
00164  M00S00158.1mc     +++|
00165  M00S00159.1mc     +++|
00166  M00S00160.1mc     +++| PEM      LJM    *           ENTRY
00167  M00S00161.1mc     +++|
00168  M00S00162.1mc     +++|*         SET UP THOSE FIELDS IN THE BML MESSAGE WHICH ARE CONSTANT
00169  M00S00163.1mc     +++|*         FOR ALL ERRORS.
00170  M00S00164.1mc     +++|

Seq #  *Modification Id* Act 
----------------------------+
00171  M01S00165.252l678 ---|          LDD    IR+3        SET SYMPTOM CODE IN HEADER
00172  M01S00166.252l678 ---|          SHN    -7
00173  M01S00167.252l678 ---|          ADC    /COMSDFS/HS0040+/COMSDFS/D1MC*400

Seq #  *Modification Id* Act 
----------------------------+
00174  M01S00004.252l678 +++|          LDN    PARE        SET ERROR CODE
00175  M01S00005.252l678 +++|          STM    MSGA+12
00176  M01S00006.252l678 +++|          LDC    /COMSDFS/HS0040+/COMSDFS/D1MC*400
00177  M00S00168.1mc     +++|          STM    MSGA+1
00178  M00S00169.1mc     +++|          LDK    MMFL        ADD MACHINE ID TO MESSAGE
00179  M00S00170.1mc     +++|          CRD    CM
00180  M00S00171.1mc     +++|          LDD    CM
00181  M00S00172.1mc     +++|          STM    MSGA+10

Seq #  *Modification Id* Act 
----------------------------+
00182  M01S00173.252l678 ---|          LDK    EMEQ        ADD EST ORDINAL TO MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
00183  M01S00007.252l678 +++|          LDD    IR+2        ADD EST ORDINAL TO MESSAGE
00184  M00S00174.1mc     +++|          STM    MSGA+5
00185  M00S00175.1mc     +++|
00186  M00S00176.1mc     +++|*         DETERMINE THE MESSAGE ID WHICH CORRESPONDS WITH THIS DEVICE
00187  M00S00177.1mc     +++|*         AND ADD IT TO THE BML MESSAGE HEADER.
00188  M00S00178.1mc     +++|
00189  M00S00179.1mc     +++|          SFA    EST         GET EST ENTRY FOR DEVICE
00190  M00S00180.1mc     +++|          ADK    EQDE
00191  M00S00181.1mc     +++|          CRD    CM
00192  M00S00182.1mc     +++|          LDD    CM+4        GET WORD *DILL* FROM THE MST
00193  M00S00183.1mc     +++|          SHN    3
00194  M00S00184.1mc     +++|          ADK    DILL
00195  M00S00185.1mc     +++|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
00196  M01S00186.ns2525  ---|          LDD    CM+3        GET EXTENDED MEMORY TYPE BITS
00197  M01S00187.ns2525  ---|          LPC    777
00198  M01S00188.ns2525  ---|          STD    T3
00199  M01S00189.ns2525  ---|          LDK    PEMBL

Seq #  *Modification Id* Act 
----------------------------+
00200  M01S00001.ns2525  +++|          LDN    PEMBL
00201  M00S00190.1mc     +++|          STD    T1
00202  M00S00191.1mc     +++| PEM1     LCN    2           SCAN TABLE FOR A MATCH
00203  M00S00192.1mc     +++|          RAD    T1
00204  M00S00193.1mc     +++|          ZJN    PEM2        IF DEVICE NOT FOUND IN TABLE
00205  M00S00194.1mc     +++|          LDM    PEMB-2,T1

Seq #  *Modification Id* Act 
----------------------------+
00206  M01S00195.ns2525  ---|          LMD    T3

Seq #  *Modification Id* Act 
----------------------------+
00207  M01S00002.ns2525  +++|          LMD    CM+3
00208  M01S00003.ns2525  +++|          LPC    707
00209  M00S00196.1mc     +++|          NJN    PEM1        IF A MATCH HAS NOT YET BEEN FOUND
00210  M00S00197.1mc     +++|          LDM    PEMB-1,T1
00211  M00S00198.1mc     +++| PEM2     STM    MSGA+0      ADD MESSAGE ID TO MESSAGE
00212  M00S00199.1mc     +++|
00213  M00S00200.1mc     +++|*         FOR EACH ERROR IN THE BUFFER, ISSUE A BML ERROR MESSAGE.
00214  M00S00201.1mc     +++|
00215  M00S00202.1mc     +++|          LDC    BUF+5
00216  M00S00203.1mc     +++|          STD    BP          SET BUFFER POINTER

Seq #  *Modification Id* Act 
----------------------------+
00217  M01S00001.ns2375  +++|          LDN    ZERL        SET END OF DATA
00218  M01S00002.ns2375  +++|          CRM    BUF+MCBL*5,ON
00219  M00S00204.1mc     +++| PEM3     LDM    1,BP        CHECK FOR END OF BUFFER
00220  M00S00205.1mc     +++|          ZJN    PEM4        IF NO MORE MESSAGES IN BUFFER
00221  M00S00206.1mc     +++|          RJM    IBM         ISSUE BML MESSAGE
00222  M00S00207.1mc     +++|          LDN    3*5         ADVANCE POINTER TO NEXT ERROR IN BUFFER
00223  M00S00208.1mc     +++|          RAD    BP
00224  M00S00209.1mc     +++|          UJN    PEM3        CHECK FOR ANOTHER MESSAGE
00225  M00S00210.1mc     +++|
00226  M00S00211.1mc     +++| PEM4     MONITOR  DPPM
00227  M00S00212.1mc     +++|          LJM    PPR         RETURN TO PP RESIDENT
00228  M00S00213.1mc     +++|
00229  M00S00214.1mc     +++|
00230  M00S00215.1mc     +++| MSGA     BSSZ   6*5         BML MESSAGE BUFFER
00231  M00S00216.1mc     +++|          SPACE  4,10
00232  M00S00217.1mc     +++| PEMB     BSS    0           TABLE OF MESSAGE IDENTIFERS
00233  M00S00218.1mc     +++|
00234  M00S00219.1mc     +++|          CON    112,/COMSDFS/RM0070    (DP)  ECS I  - DC135 DDP
00235  M00S00220.1mc     +++|          CON    110,/COMSDFS/RM0071    (DE)  ECS I  - COUPLER
00236  M00S00221.1mc     +++|          CON    212,/COMSDFS/RM0072    (DP)  ECS II - DC135 DDP
00237  M00S00222.1mc     +++|          CON    210,/COMSDFS/RM0073    (DE)  ECS II - COUPLER
00238  M00S00223.1mc     +++|          CON    111,/COMSDFS/RM0074    (DP)  ECS I  - DC145 DDP
00239  M00S00224.1mc     +++|          CON    211,/COMSDFS/RM0075    (DP)  ECS II - DC145 DDP

Seq #  *Modification Id* Act 
----------------------------+
00240  M01S00225.252l678 ---|          CON    320,/COMSDFS/RM0076    (DP)  LCME   - COUPLER

Seq #  *Modification Id* Act 
----------------------------+
00241  M01S00008.252l678 +++|          CON    320,/COMSDFS/RM0076    (DE)  LCME   - COUPLER
00242  M00S00226.1mc     +++|          CON    510,/COMSDFS/RM0207    (DE)  ESM    - COUPLER
00243  M00S00227.1mc     +++|          CON    511,/COMSDFS/RM0210    (DP)  ESM    - LOW SPEED PORT
00244  M00S00228.1mc     +++|
00245  M00S00229.1mc     +++| PEMBL    EQU    *-PEMB+2    MESSAGE ID TABLE LENGTH
00246  M00S00230.1mc     +++|          TITLE  SUBROUTINES.
00247  M00S00231.1mc     +++| DUE      SPACE  4,15
00248  M00S00232.1mc     +++|**        DUE - DISABLE USER ECS.
00249  M00S00233.1mc     +++|*
00250  M00S00234.1mc     +++|*         USES   CM - CM+4.
00251  M00S00235.1mc     +++|*
00252  M00S00236.1mc     +++|*         MACROS MONITOR.
00253  M00S00237.1mc     +++|
00254  M00S00238.1mc     +++|
00255  M00S00239.1mc     +++| DUE      SUBR               ENTRY/EXIT
00256  M00S00240.1mc     +++|          LDN    ECRL
00257  M00S00241.1mc     +++|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
00258  M01S00242.252l678 ---|          LDD    CM+2

Seq #  *Modification Id* Act 
----------------------------+
00259  M01S00009.252l678 +++|          LDD    CM+1
00260  M00S00243.1mc     +++|          SBD    CM+4
00261  M00S00244.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  M00S00245.1mc     +++|          LDN    SSTL
00269  M00S00246.1mc     +++|          CRD    CM
00270  M00S00247.1mc     +++|          LDD    CM
00271  M00S00248.1mc     +++|          SHN    21-5
00272  M00S00249.1mc     +++|          MJN    DUEX        IF ECS ALREADY DISABLED
00273  M00S00250.1mc     +++|          LDN    40
00274  M00S00251.1mc     +++|          RAD    CM
00275  M00S00252.1mc     +++|          LDN    SSTL
00276  M00S00253.1mc     +++|          CWD    CM
00277  M00S00254.1mc     +++|          LDN    NCPL        WRITE MESSAGE AT SYSTEM CP
00278  M00S00255.1mc     +++|          CRD    CM
00279  M00S00256.1mc     +++|          AOD    CM+1
00280  M00S00257.1mc     +++|          SHN    7
00281  M00S00258.1mc     +++|          ADN    MS2W
00282  M00S00259.1mc     +++|          CWM    DUEA,TR
00283  M00S00260.1mc     +++|          LDN    ZERL        ISSUE USER *ECS* DISABLED EVENT
00284  M00S00261.1mc     +++|          CRD    CM
00285  M00S00262.1mc     +++|          LDN    UEDE
00286  M00S00263.1mc     +++|          STD    CM+4
00287  M00S00264.1mc     +++|          MONITOR  EATM
00288  M00S00265.1mc     +++|          LJM    DUEX        RETURN
00289  M00S00266.1mc     +++|
00290  M00S00267.1mc     +++|
00291  M00S00268.1mc     +++| DUEA     DATA   C*  USER ECS DISABLED.  *
00292  M00S00269.1mc     +++| IBM      SPACE  4,10
00293  M00S00270.1mc     +++|**        IBM - ISSUE BML MESSAGE.
00294  M00S00271.1mc     +++|*
00295  M00S00272.1mc     +++|*         USES   CM - CM+4, IR+3 - IR+4, BP, CN.
00296  M00S00273.1mc     +++|*
00297  M00S00274.1mc     +++|*         CALLS  DFM, DUE.

Seq #  *Modification Id* Act 
----------------------------+
00298  M01S00002.251l664 +++|*
00299  M01S00003.251l664 +++|*         MACROS MONITOR.
00300  M00S00275.1mc     +++|
00301  M00S00276.1mc     +++|
00302  M00S00277.1mc     +++| IBM      SUBR               ENTRY/EXIT
00303  M00S00278.1mc     +++|          LDD    IR+3        ADD READ/WRITE FLAG TO MESSAGE
00304  M00S00279.1mc     +++|          SHN    -6
00305  M00S00280.1mc     +++|          LPN    2
00306  M00S00281.1mc     +++|          STM    MSGA+6
00307  M00S00282.1mc     +++|          LDM    1,BP        ADD RETRY COUNT TO MESSAGE
00308  M00S00283.1mc     +++|          SCN    77
00309  M00S00284.1mc     +++|          RAM    MSGA+6
00310  M00S00285.1mc     +++|          LDM    3,BP        ADD ECS ADDRESS TO MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
00311  M01S00286.252l678 ---|          STM    MSGA+15
00312  M01S00287.252l678 ---|          LDM    4,BP
00313  M01S00288.252l678 ---|          STM    MSGA+16

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

Seq #  *Modification Id* Act 
----------------------------+
00319  M01S00291.252l678 ---|          STM    MSGA+34
00320  M01S00292.252l678 ---|          LDM    2,BP
00321  M01S00293.252l678 ---|          STM    MSGA+35

Seq #  *Modification Id* Act 
----------------------------+
00322  M01S00019.252l678 +++|          STM    MSGA+15
00323  M01S00020.252l678 +++|          LDM    2,BP
00324  M01S00021.252l678 +++|          STM    MSGA+16
00325  M00S00294.1mc     +++|
00326  M00S00295.1mc     +++|*         SET RECOVERED/UNRECOVERED STATUS.
00327  M00S00296.1mc     +++|
00328  M00S00297.1mc     +++|          LDI    BP
00329  M00S00298.1mc     +++|          LPN    4
00330  M00S00299.1mc     +++|          ZJN    IBM1        IF ERROR WAS RECOVERED
00331  M00S00300.1mc     +++|          RJM    DUE         DISABLE USER ECS
00332  M00S00301.1mc     +++|          LDN    1           SET ERROR UNRECOVERED
00333  M00S00302.1mc     +++| IBM1     RAM    MSGA+6
00334  M00S00303.1mc     +++|
00335  M00S00304.1mc     +++|*         ADD WORD COUNT TO MESSAGE.  IF GOOD OR BAD DATA WAS PASSED
00336  M00S00305.1mc     +++|*         ALONG WITH THE OTHER ERROR DATA, THE WORD COUNT USED IS ONE,
00337  M00S00306.1mc     +++|*         BECAUSE THE ERROR REFERS TO AN ACTUAL ADDRESS.  IF NO
00338  M00S00307.1mc     +++|*         GOOD/BAD DATA WAS PASSED, THE GIVEN WORD COUNT IS USED,
00339  M00S00308.1mc     +++|*         INDICATING THAT THE ERROR OCCURRED SOMEWHERE WITHIN THAT
00340  M00S00309.1mc     +++|*         WORD COUNT RANGE.  THIS OCCURS WHEN *CPUMTR* RECOVERS AN
00341  M00S00310.1mc     +++|*         ERROR BUT IS UNABLE TO DETERMINE THE EXACT ADDRESS WHICH
00342  M00S00311.1mc     +++|*         CAUSED THE HALF EXIT.
00343  M00S00312.1mc     +++|
00344  M00S00313.1mc     +++|          LDI    BP
00345  M00S00314.1mc     +++|          LPN    3
00346  M00S00315.1mc     +++|          NJN    IBM2        IF GOOD OR BAD DATA WAS PASSED
00347  M00S00316.1mc     +++|          LDD    IR+3
00348  M00S00317.1mc     +++|          LPN    77
00349  M00S00318.1mc     +++|          SHN    14
00350  M00S00319.1mc     +++|          LMD    IR+4

Seq #  *Modification Id* Act 
----------------------------+
00351  M01S00320.252l678 ---|          UJN    IBM2.1      ADD WORD COUNT

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

Seq #  *Modification Id* Act 
----------------------------+
00355  M01S00323.252l678 ---| IBM2.1   STM    MSGA+14
00356  M01S00324.252l678 ---|          SHN    -14
00357  M01S00325.252l678 ---|          STM    MSGA+13

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

Seq #  *Modification Id* Act 
----------------------------+
00364  M01S00329.252l678 ---|          LDC    MSGA+17

Seq #  *Modification Id* Act 
----------------------------+
00365  M01S00026.252l678 +++|          LDC    MSGA+24
00366  M00S00330.1mc     +++|          STM    IBMC
00367  M00S00331.1mc     +++|          LDD    BP
00368  M00S00332.1mc     +++|          ADN    5
00369  M00S00333.1mc     +++|          STM    IBMA
00370  M00S00334.1mc     +++|          ADN    5
00371  M00S00335.1mc     +++|          STM    IBMB
00372  M00S00336.1mc     +++|          LDI    BP          CHECK FOR BAD DATA
00373  M00S00337.1mc     +++|          LPN    2
00374  M00S00338.1mc     +++|          SHN    -1

Seq #  *Modification Id* Act 
----------------------------+
00375  M01S00339.252l678 ---|          STM    MSGA+12
00376  M01S00340.252l678 ---|          ZJN    IBM3        IF NO BAD DATA

Seq #  *Modification Id* Act 
----------------------------+
00377  M01S00027.252l678 +++|          STM    MSGA+17
00378  M01S00028.252l678 +++|          ZJN    IBM4        IF NO BAD DATA
00379  M00S00341.1mc     +++|          LDD    MA
00380  M00S00342.1mc     +++|          CWM    **,ON
00381  M00S00343.1mc     +++| IBMA     EQU    *-1
00382  M00S00344.1mc     +++|          SBN    1

Seq #  *Modification Id* Act 
----------------------------+
00383  M01S00345.252l678 ---|          CRM    MSGA+17,ON
00384  M01S00346.252l678 ---| IBM3     LDI    BP          CHECK FOR GOOD DATA
00385  M01S00347.252l678 ---|          LPN    1
00386  M01S00348.252l678 ---|          ZJN    IBM5        IF NO GOOD DATA

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00349.1mc     +++|          LMI    BP
00392  M00S00350.1mc     +++|          LPN    3

Seq #  *Modification Id* Act 
----------------------------+
00393  M01S00351.252l678 ---|          ZJN    IBM4        IF ONLY GOOD DATA

Seq #  *Modification Id* Act 
----------------------------+
00394  M01S00033.252l678 +++|          ZJN    IBM5        IF ONLY GOOD DATA
00395  M00S00352.1mc     +++|          LDN    5
00396  M00S00353.1mc     +++|          RAM    IBMC
00397  M00S00354.1mc     +++|          LDN    2

Seq #  *Modification Id* Act 
----------------------------+
00398  M01S00355.252l678 ---| IBM4     LMN    1
00399  M01S00356.252l678 ---|          STM    MSGA+12

Seq #  *Modification Id* Act 
----------------------------+
00400  M01S00034.252l678 +++| IBM5     LMN    1
00401  M01S00035.252l678 +++|          STM    MSGA+17
00402  M00S00357.1mc     +++|          LDD    MA
00403  M00S00358.1mc     +++|          CWM    IBMB,ON
00404  M00S00359.1mc     +++| IBMB     EQU    *-1
00405  M00S00360.1mc     +++|          SBN    1

Seq #  *Modification Id* Act 
----------------------------+
00406  M01S00361.252l678 ---|          CRM    MSGA+17,ON
00407  M01S00362.252l678 ---|*         CRM    MSGA+24,ON
00408  M01S00363.252l678 ---| IBMC     EQU    *-1
00409  M01S00364.252l678 ---| IBM5     LDN    6*5         SET BML MESSAGE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00365.1mc     +++|          STD    CM+1
00415  M00S00366.1mc     +++|          LDC    MSGA+BMLN   ISSUE BML MESSAGE
00416  M00S00367.1mc     +++|          RJM    DFM
00417  M00S00368.1mc     +++|
00418  M00S00369.1mc     +++|*         IF THE ERROR IS UNRECOVERED, ISSUE A MESSAGE TO THE ERRLOG
00419  M00S00370.1mc     +++|*         AND TO THE SYSTEM AND JOB DAYFILES INDICATING THE TYPE OF
00420  M00S00371.1mc     +++|*         ERROR AND THE DEVICE ON WHICH THE ERROR OCCURRED.
00421  M00S00372.1mc     +++|
00422  M00S00373.1mc     +++|          LDM    MSGA+6
00423  M00S00374.1mc     +++|          LPN    1
00424  M00S00375.1mc     +++|          STD    CN

Seq #  *Modification Id* Act 
----------------------------+
00425  M01S00376.252l678 ---|          ZJN    IBM6        IF THE ERROR WAS RECOVERED
00426  M01S00377.252l678 ---|          LDC    EMEQ*100+2R0  PUT EST ORDINAL INTO DAYFILE MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00378.1mc     +++|          STM    IBMG+2
00437  M00S00379.1mc     +++|          LDC    IBMG        ISSUE SYSTEM AND DAYFILE MESSAGES
00438  M00S00380.1mc     +++|          RJM    DFM
00439  M00S00381.1mc     +++|          LDC    IBMG+ERLN   ISSUE ERRLOG MESSAGE
00440  M00S00382.1mc     +++|          RJM    DFM
00441  M00S00383.1mc     +++|
00442  M00S00384.1mc     +++|*         INCREMENT THE RECOVERED OR UNRECOVERED ERROR COUNTER IN THE
00443  M00S00385.1mc     +++|*         MST FOR THE CURRENT DEVICE.
00444  M00S00386.1mc     +++|

Seq #  *Modification Id* Act 
----------------------------+
00445  M01S00387.251l664 ---| IBM6     LDK    EMEQ        READ ERROR COUNTERS
00446  M01S00388.251l664 ---|          SFA    EST
00447  M01S00389.251l664 ---|          ADK    EQDE
00448  M01S00390.251l664 ---|          CRD    CM
00449  M01S00391.251l664 ---|          LDD    CM+4
00450  M01S00392.251l664 ---|          SHN    3
00451  M01S00393.251l664 ---|          ADK    CTLL
00452  M01S00394.251l664 ---|          CRM    IBMD,ON
00453  M01S00395.251l664 ---|          SBN    1
00454  M01S00396.251l664 ---|          CRM    IBME,ON
00455  M01S00397.251l664 ---|          SBN    1
00456  M01S00398.251l664 ---|          STD    CM+4        SET ADDRESS IN *UTEM* CALL
00457  M01S00399.251l664 ---|          SHN    -14
00458  M01S00400.251l664 ---|          STD    CM+3
00459  M01S00401.251l664 ---|          AOM    IBME+3,CN   INCREMENT THE APPROPRIATE COUNTER
00460  M01S00402.251l664 ---|          LMM    IBMD+3,CN
00461  M01S00403.251l664 ---|          SHN    0-13
00462  M01S00404.251l664 ---|          NJP    IBM7        IF COUNTER OVERFLOW
00463  M01S00405.251l664 ---|          STM    IBMD+1      SET LOW ORDER BIT POSITION
00464  M01S00406.251l664 ---|          STM    IBME+1
00465  M01S00407.251l664 ---|          LDN    24D         SET FIELD SIZE
00466  M01S00408.251l664 ---|          STM    IBME
00467  M01S00409.251l664 ---|          ADC    4000
00468  M01S00410.251l664 ---|          STM    IBMD
00469  M01S00411.251l664 ---|          LDK    PDTL        SET CURRENT DATE AND TIME
00470  M01S00412.251l664 ---|          CRM    IBMF,ON
00471  M01S00413.251l664 ---|          LDC    1*100+36D   SET TABLE OFFSET AND FIELD SIZE
00472  M01S00414.251l664 ---|          ERRNZ  EDLL-CTLL-1 ERROR IF VALUE CHANGES
00473  M01S00415.251l664 ---|          STM    IBMF
00474  M01S00416.251l664 ---|          LDN    3
00475  M01S00417.251l664 ---|          STD    CM+1        SAVE WORD COUNT FOR *UTEM* CALL
00476  M01S00418.251l664 ---|          LDD    MA
00477  M01S00419.251l664 ---|          CWM    IBMD,TR     MOVE PARAMETER WORDS TO MESSAGE BUFFER
00478  M01S00420.251l664 ---|          MONITOR  UTEM      ISSUE *UTEM* FUNCTION
00479  M01S00421.251l664 ---|          LDD    CM+1
00480  M01S00422.251l664 ---|          ZJN    IBM7        IF UPDATE WAS SUCCESSFUL
00481  M01S00423.251l664 ---|          LJM    IBM6        REATTEMPT INCREMENT OF COUNTER
00482  M01S00424.251l664 ---|
00483  M01S00425.251l664 ---| IBM7     LJM    IBMX        RETURN
00484  M01S00426.251l664 ---|
00485  M01S00427.251l664 ---|
00486  M01S00428.251l664 ---| IBMD     VFD    36/403000000000,24/0
00487  M01S00429.251l664 ---| IBME     VFD    36/003000000000,24/0
00488  M01S00430.251l664 ---| IBMF     VFD    60/0

Seq #  *Modification Id* Act 
----------------------------+
00489  M02S00004.252l678 ---| IBM6     LDD    CN          SET BYTE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
00490  M01S00049.252l678 +++| IBM7     LDD    CN          SET BYTE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
00491  M01S00005.251l664 +++|          ADN    3
00492  M01S00006.251l664 +++|          STD    CM+2

Seq #  *Modification Id* Act 
----------------------------+
00493  M02S00007.252l678 ---|          LDK    EMEQ        SET EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
00494  M01S00050.252l678 +++|          LDD    IR+2        SET EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
00495  M01S00008.251l664 +++|          STD    CM+1
00496  M01S00009.251l664 +++|          LDK    ICTS        SET SUBFUNCTION
00497  M01S00010.251l664 +++|          STD    CM+3

Seq #  *Modification Id* Act 
----------------------------+
00498  M02S00011.253l688 ---|          MONITOR  STBM      INCREMENT ERROR COUNTER

Seq #  *Modification Id* Act 
----------------------------+
00499  M01S00001.253l688 +++|          MONITOR  SMDM      INCREMENT ERROR COUNTER

Seq #  *Modification Id* Act 
----------------------------+
00500  M01S00012.251l664 +++|          LJM    IBMX        RETURN
00501  M01S00013.251l664 +++|
00502  M01S00014.251l664 +++|
00503  M00S00431.1mc     +++| IBMG     DATA   C*EQ000 PE MASS STORAGE ERROR.*

Seq #  *Modification Id* Act 
----------------------------+
00504  M01S00051.252l678 +++|          SPACE  4,10
00505  M01S00052.252l678 +++|*         COMMON DECKS.
00506  M01S00053.252l678 +++|
00507  M01S00054.252l678 +++|
00508  M01S00055.252l678 +++|*CALL     COMPC2D
00509  M00S00432.1mc     +++|
00510  M00S00433.1mc     +++|          ERRPL  *-BUF  OVERLAY OVERFLOWS BUFFER
00511  M00S00434.1mc     +++|
00512  M00S00435.1mc     +++|          END