* SCEPTRE AMENDMENT UCS_P550_022/1
*
* Release 5.5
* Date 24 April 2002
*
* Sceptre fails to give statistics for OTPMS 6.30 nd 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.ICL8UCS4TPMS
*
AREA(UCS093.PATCHES)
ALTER(022,X00,XF1,NAME=UCS_P550_022/1_P00)

POINT(UCS470.UCSCOLTP_C)
PATCH(X1A3E,X65DCC868,TO=CODE * LINE 259
    LSS.IC  X28
    ICP     6300
    JL      #Y
    LSD.IL  XFB
    USH     -24
    MPSR    X11
    USH     -8
    IDV     52
    ST.L    XFA
    STSF.L  XFD
    LB.L    X24
    LSS     0
    ST.MIC  X3E
    ST.MIC  X34
    LSD.IL  XFB
    MPSR    X11
    ST.L    X1C
    LB.L    XFA
    MYB     52
    J       X1A6A
#Y  LSD.IL   XFB     * TRAMPLED CODE
    USH     -24
    J       X1A42
END,NO,NAME=UCS_P550_022/1_P01)

PATCH(X1AA4,X638800FF,TO=CODE  * LINE 271
    LSS.IC  X28
    ICP     6300
    JL      #Y
    LSS.L   XFF
    ROT     8
    USH     -8
    IDV     52
    ISB     1
    ST.L    X1C
    LB      0
    LCT.L   4
    CPB.L   X1C
    STB.L   XFE
    JG      X1AE4   * EXIT
    PRCL    4
    MYB     52
    J       X1AC4   * CARRY ON
#Y  LSS.L   XFF     * TRAMPLED
    J       X1AA8
END,NO,NAME=UCS_P550_022/1_P02)

PATCH(X1C22,XC878AA24,TO=CODE  * LINE 318
    LB.IC   X28
    CPB     6300
    JL      #Y
    USH     -8
    IDV     52
    J       X1C26
#Y  USH     -8
    IDV     X24
    J       X1C26
END,NO,NAME=UCS_P550_022/1_P03)

PATCH(X1C7E,X7B880101,TO=CODE  * LINE 331
    LSS.IC  X28
    ICP     6300
    JL      #Y
    LB.L    X101
    MYB     52
    J       X1C84
#Y  LB.L    X101
    J       X1C82
END,NO,NAME=UCS_P550_022/1_P04)

PATCH(X1D0C,X7B880101,TO=CODE  * LINE 349
    LSS.IC  X28
    ICP     6300
    JL      #Y
    LB.L    X101
    MYB     52
    J       X1D12
#Y  LB.L    X101
    J       X1D10
END,NO,NAME=UCS_P550_022/1_P05)

PATCH(X1540,X65C800EF,TO=CODE * LINE 385
    ICP     6400
    JL      #X
    LSD.IL  XEF
    USH     -24
    MPSR    X11
    USH     -8
    IDV     440     * NEW ENTRY LENGTH
    ST.L    XEE
    LSD.D
    MPSR    X11
    ST.L    X1B
    LB.L    XEE
    MYB     440
    J       X1560
#X  ICP     6300
    JL      #Y
    LSD.IL  XEF
    USH     -24
    MPSR    X11
    USH     -8
    IDV     428     * NEW ENTRY LENGTH
    ST.L    XEE
    LSD.D
    MPSR    X11
    ST.L    X1B
    LB.L    XEE
    MYB     428
    J       X1560
#Y  LSD.IL  XEF
    J       X1544
END,NO,NAME=UCS_P550_022/1_P06)

PATCH(X15A6,X638800F3,TO=CODE * LINE 394
    LSS.IC  X28
    ICP     6400
    JL      #X
    LSS.L   XF3
    ROT     8
    USH     -8
    IDV     440
    ISB     1
    ST.L    X1B
    LB.L    X24
    LCT.L   4
    LB.MIC  X3C
    CPB.L   X1B
    STB.L   XF5
    JG      X15F4   * EXIT
    PRCL    4
    MYB     440
    J       X15CE   * CARRY ON
#X  ICP     6300
    JL      #Y
    LSS.L   XF3
    ROT     8
    USH     -8
    IDV     428
    ISB     1
    ST.L    X1B
    LB.L    X24
    LCT.L   4
    LB.MIC  X3C
    CPB.L   X1B
    STB.L   XF5
    JG      X15F4   * EXIT
    PRCL    4
    MYB     428
    J       X15CE   * CARRY ON
#Y  LSS.L   XF3     * TRAMPLED
    J       X15AA
END,NO,NAME=UCS_P550_022/1_P07)

PATCH(X1654,X2B80019C,TO=CODE * LINE 407
    LSS.IC  X28
    ICP     6400
    JL      #X
    MYB     440
    LD.L    XF3
    MODD.B
    ADB.L   XF4
    LD.P    #A
    J       X1666
#X  ICP     6300
    JL      #Y
    MYB     428
    LD.L    XF3
    MODD.B
    ADB.L   XF4
    LD.P    #A
    J       X1666
    ALIGND
#A  X18000013
    X0000004E
#Y  MYB     412
    J       X1658
END,NO,NAME=UCS_P550_022/1_P08)

PATCH(XC9E,X7B8800CA,TO=CODE  * LINE 703
    LB.L    XCA     * TRAMPLED CODE
    LSS.IC  X28
    ICP     6300
    JL      XCA2    * RETURN
    MYB     52
    J       XCA4
END,NO,NAME=UCS_P550_022/1_P09)

PATCH(XD4E,X7B8800D3,TO=CODE   * LINE 720
    LB.L    XD3     * TRAMPLED CODE
    LSS.IC  X28
    ICP     6300
    JL      XD52    * RETURN
    MYB     52
    J       XD54    
END,NO,NAME=UCS_P550_022/1_P10)

PATCH(XDE6,X738800D6,TO=CODE * LINE 735
    LSS.IC  X28
    ICP     6300
    JL      #Y
    LDA.L   XD6
    LDTB.P  #A
    J       XDEE
    ALIGN
#A  X18000034
#Y  LDA.L   XD6
    J       XDEA
END,NO,NAME=UCS_P550_022/1_P11)

PATCH(XE88,X7B8800D3,TO=CODE * LINE 757
    LSS.IC  X28
    ICP     6300
    JL      #Y
    LB.L    XD3
    MYB     52
    ADB     XC
    LSS.MIL XD1
    JNZ     XEAC
    LB.L    XD3
    MYB     52
    J       XE9E
#Y  LB.L    XD3
    J       XE8C
END,NO,NAME=UCS_P550_022/1_P12)

PATCH(X554,X65C800BD,TO=CODE  * LINE 806
    ICP     6400
    JL      #X
    LSD.IL  XBD
    USH     -24
    MPSR    X11
    USH     -8
    IDV     440     * NEW ENTRY LENGTH
    J       X5A0
#X  ICP     6300
    JL      #Y
    LSD.IL  XBD
    USH     -24
    MPSR    X11
    USH     -8
    IDV     428     * NEW ENTRY LENGTH
    J       X5A0
#Y  LSD.IL  XBD
    J       X558
END,NO,NAME=UCS_P550_022/1_P13)

PATCH(X8A0,X65C800BD,TO=CODE  * LINE 903
    ICP     6400
    JL      #X
    LSD.IL  XBD
    MPSR    X11
    ST.L    X17
    LB.L    XBA
    MYB     440
    J       X8B0
#X  ICP     6300
    JL      #Y
    LSD.IL  XBD
    MPSR    X11
    ST.L    X17
    LB.L    XBA
    MYB     428
    J       X8B0
#Y  LSD.IL  XBD
    J       X8A4
END,NO,NAME=UCS_P550_022/1_P14)

PATCH(X8D6,X7B8800C1,TO=CODE    * LINE 907
    LSS.IC  X28
    ICP     6400
    JL      #X
    LB.L    XC1
    MYB     440
    J       X8DE
#X  ICP     6300
    JL      #Y
    LB.L    XC1
    MYB     428
    J       X8DE
#Y  LB.L    XC1
    J       X8DA
END,NO,NAME=UCS_P550_022/1_P15)

PATCH(X900,X21800164,TO=CODE    * LINE 909
    LB.L    XC1                 * I
    LSS.IC  X28
    ICP     6400
    JL      #X
    MYB     440
    ADB     402                 * INHIBITED
    J       #Z        
#X  ICP     6300
    JL      #Y
    MYB     428
    ADB     402                 * INHIBITED
    J       #Z    
#Y  MYB     X19C
    ADB     X103
#Z  LSS.MIL XC3    
    STLN.B
    ADB     X164
    ST.MIP  X2200
    J       X906
END,NO,NAME=UCS_P550_022/1_P16)    

PATCH(X90E,X2B80019C,TO=CODE  * LINE 910
    LSS.IC  X28
    ICP     6400
    JL      #X
    MYB     440
    ADB     408
    J       X916
#X  ICP     6300
    JL      #Y
    MYB     428
    ADB     408
    J       X916
#Y  MYB     X19C
    J       X912
END,NO,NAME=UCS_P550_022/1_P17)
CHE(CAC62F6E)