* SCEPTRE AMENDMENT UCS_P550_025
*
* Release: 5.5
* Date: 21 DECEMBER 2000
*
* CORRECTS PROBLEM WHERE UCS_OV_PREPARE FAILS TO PREPARE A 
* TPMS 630 SERVICE, REPORTING THE ERROR:
* "OVERLORD SYS ERR Unable to insert TP details - 0"
*
* 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.ICL8UCS9PREP
*
AREA(UCS093.PATCHES)
ALTER(025,X00,XF0,NAME=UCS_P550_025_P00)
POINT(UCS971.UCS971TPNAMES)

ALTER(0,X6E29,X6E2A)
PATCH(X184,X651BC868,TO=CODE   * LINE 146
    LSS.L   X1F
    ICP     0
    JG      #A
    IRSB    0
    ST.L    X1F
#A  LB      0
    ICP     6300
    JL      #B
    LB      1
#B  STB.L   X36 * NEW BOOL TPMS_630
    JZB     #Y
    LSD.IL  X1B
    USH     -24
    MPSR    X11
    USH     -8
    IDV     52
    J       X18E
#Y  LSD.IL  X1B
    USH     -24
    J       X188
END,NO,NAME=UCS_P550_025_P01)

PATCH(X1C0,X7AA02A24,TO=CODE   * LINE 152
    LSS.L   X36     * TP 6300
    JZ      #Y
    LB.L    X20
    MYB     52
    J       X1C4
#Y  LB.L    X20
    MYB     X24
    J       X1C4
END,NO,NAME=UCS_P550_025_P02)

PATCH(X304,X2A2478A5,TO=CODE   * LINE 203
    LSS.L   X36
    JZ      #Y
    MYB     52
    J       #Z
#Y  MYB     X24
#Z  LD.L    X25
    J       X308
END,NO,NAME=UCS_P550_025_P03)

PATCH(X388,X62AD0480,TO=CODE   * LINE 234
    LSS.L   X36
    JZ      #Y
    LSD.IL  X1D
    USH     -24
    MPSR    X11
    USH     -8
    IDV     428
    ISB     1
    J       X3A4
#Y  LSS.L   X2D
    JZ      X394
    J       X38E
END,NO,NAME=UCS_P550_025_P04)

PATCH(X3C0,X2B80019C,TO=CODE   * LINE 245
    LSS.L   X36
    JZ      #Y
    MYB     428
    LD.L    X2B
    MODD.B
    ADB.L   X2C
    LD.P    #A
    J       X3CE
    ALIGND
#A  X18000013
    X0000004E
#Y  MYB     X19C
    J       X3C4
END,NO,NAME=UCS_P550_025_P05)
CHECKSUM(562E83E7)