* SCEPTRE AMENDMENT UCS_P550_024/1
*
* Release 5.5
* Date 25 April 2002
*
* Overlord fails to monitor OTPMS 6.30 & 6.40 services
*
* This amendment corrects the error
*
* Please apply the amendment using the procedure described in the Software
* Notice issued with the Sceptre software.
* This amendment applies to both SCEPTRE and SCEPTRE-E.
*
* Module to be amended is: ICLRSIOMF.ICL8UCS9MON
*
AREA(UCS093.PATCHES)
ALTER(024,X00,XF1,NAME=UCS_P550_024/1_P00)

POINT(UCS922.FIXUPTPMS_C)
PATCH(0,X6E3F7A85,TO=CODE
    ASF     X41
    LB.L    5
    J       X4
END,NO,NAME=UCS_P550_024/1_P01)

PATCH(X2E,XC6066201,TO=CODE * LINE 388
    LB      0
    UCP     64      * TPMS 640
    JL      #A
    LB      1
#A  STB.L   X46     * NEW BOOL FOR TPMS 640 
    LB      0
    UCP     63      * TPMS 630
    JL      #B
    LB      1
#B  STB.L   X45     * NEW BOOL FOR TPMS 630.  ALSO SET FOR 640.
    UCP     6       * TRAMPLED
    LSS     1
    J       X32
END,NO,NAME=UCS_P550_024/1_P02)

PATCH(XB8,X6292AA24,TO=CODE  * LINE 404
    LSS.L   X46     * TP 640? 
    JZ      #X
    LSS.L   X12
    IDV     52
    ST.L    X15     *MTCOUNT
    LSS.L   X13
    IDV     440
    J       XE0
#X  LSS.L   X45     * TP 630?
    JZ      #Y
    LSS.L   X12
    IDV     52
    ST.L    X15     *MTCOUNT
    LSS.L   X13
    IDV     428
    J       XE0    
#Y  LSS.L   X12
    IDV     X24
    J       XBC
END,NO,NAME=UCS_P550_024/1_P03)

PATCH(X132,X7A952A24,TO=CODE  * LINE 418
    LB.L    X15
    LSS.L   X45
    JZ      #Y
    MYB     52
    J       X136
#Y  MYB     X24
    J       X136
END,NO,NAME=UCS_P550_024/1_P04)

PATCH(X1A6,X2B80019C,TO=CODE  * LINE 429
    LSS.L   X46      * TP 640?
    JZ      #X
    MYB     440
    J       X1AA
#X  LSS.L   X45      * TP 630?
    JZ      #Y
    MYB     428
    J       X1AA
#Y  MYB     X19C
    J       X1AA
END,NO,NAME=UCS_P550_024/1_P05)

PATCH(X2B6,X2A24789B,TO=CODE  * LINE 471
    LSS.L   X45
    JZ      #Y
    MYB     52
    LD.L    X1B
    J       X2BA
#Y  MYB     X24
    LD.L    X1B
    J       X2BA
END,NO,NAME=UCS_P550_024/1_P06)

PATCH(X33E,X62890480,TO=CODE  * LINE 514
    LSS.L   X46      * TP 640?
    JZ      #X
    MYB     440
    LD.L    X25
    MODD.B
    ADB.L   X26
    LD.P    #A
    J       X352
#X  LSS.L   X45      * TP 630?
    JZ      #Y
    MYB     428
    LD.L    X25
    MODD.B
    ADB.L   X26
    LD.P    #A
    J       X352
    ALIGND
#A  X18000013
    X0000004E
#Y  LSS.L   9
    JZ      X358
    J       X344
END,NO,NAME=UCS_P550_024/1_P07)

POINT(UCS922.ICL8UCS0SERVICEAVAILABILITY_C)
PATCH(X4BC,XE780178E,TO=CODE  * LINE 865
    ICP     6400
    JL      #X
    LB      0
    LSD     64
    ST.MIL  X17
    J       X534
#X  LSS.L   X16    
    ICP     6300
    JL      #Y
    LB      0
    LSD     63
    ST.MIL  X17
    J       X534
#Y  LSS.L   X16
    ICP     X178E
    J       X4C0
END,NO,NAME=UCS_P550_024/1_P08)

POINT(UCS932.ICL8UCSOTPMSMONITOR_C)
ALTER(0,X6E2D,X6E2F,NAME=UCS_P550_024/1_P09)

PATCH(X32,XC6066201,TO=CODE  * LINE 41
    LB      0
    UCP     64      * TPMS 640
    JL      #A
    LB      1
#A  STB.L   X37     * NEW BOOL FOR TP 640
    LB      0
    UCP     63      * TPMS 630
    JL      #B
    LB      1
#B  STB.L   X36     * NEW BOOL FOR TP 630.  ALSO SET FOR 640.
    UCP     6       * TRAMPLED
    LSS     1
    J       X36
END,NO,NAME=UCS_P550_024/1_P10)

PATCH(X7C,X2B80019C,TO=CODE  * LINE 53
    LSS.L   X37      * TP 640?
    JZ      #X
    MYB     440
    J       X80    
#X  LSS.L   X36
    JZ      #Y
    MYB     428
    J       X80
#Y  MYB     X19C
    J       X80
END,NO,NAME=UCS_P550_024/1_P11)

PATCH(X16C,X62960480,TO=CODE  * LINE 80
    LSS.L   X37      * TP 640?
    JZ      #X
    LB.L    X1C
    MYB     440
    ADB     402               * NEW POS FOR INHIBITED
    J       X17C
#X  LSS.L   X36      * TP 630?
    JZ      #Y
    LB.L    X1C
    MYB     428
    ADB     402               * NEW POS FOR INHIBITED
    J       X17C
#Y  LSS.L   X16
    JNZ     X172
    J       X186
END,NO,NAME=UCS_P550_024/1_P12)

PATCH(X1C6,X62960480,TO=CODE  * LINE 89
    LSS.L   X37      * TP 640?
    JZ      #X
    LB.L    X1C
    MYB     440
    J       X1D2
#X  LSS.L   X36      * TP 630?
    JZ      #Y
    LB.L    X1C
    MYB     428
    J       X1D2
#Y  LSS.L   X16
    JNZ     X1CC
    J       X1F8
END,NO,NAME=UCS_P550_024/1_P13)

PATCH(X336,X0480000B,TO=CODE  * LINE 118
    JNZ     X33A    * JUMP IF 610
    LSS.L   X36     * TPMS 630?
    JZ      X34C    * IF NOT
    J       X33A    * TP 610 ONWARDS
END,NO,NAME=UCS_P550_024/1_P14)

PATCH(X3E4,X2A24179C,TO=CODE  * LINE 143
    LSS.L   X36
    JZ      #Y
    MYB     52
    MODD.B
    J       X3E8
#Y  MYB     X24
    MODD.B
    J       X3E8
END,NO,NAME=UCS_P550_024/1_P15)

PATCH(X4AC,X62960480,TO=CODE  * LINE 170
    LSS.L   X37      * TP 640?
    JZ      #X
    MYB     440
    ADB     402      * NEW POS FOR INHIBITED
    J       X4BA
#X  LSS.L   X36      * TP 630?
    JZ      #Y
    MYB     428
    ADB     402      * NEW POS FOR INHIBITED
    J       X4BA
#Y  LSS.L   X16
    JZ      X4C6
    J       X4B2
END,NO,NAME=UCS_P550_024/1_P16)

PATCH(X612,X2A24200C,TO=CODE  * LINE 204
    LSS.L   X36
    JZ      #Y
    MYB     52
    ADB     XC
    J       X616
#Y  MYB     X24
    ADB     XC
    J       X616
END,NO,NAME=UCS_P550_024/1_P17)

CHE(1655E8A4)