* SCEPTRE AMENDMENT UCS_P550_020
*
* Release: 5.5
* Date: 2 NOVEMBER 2000
*
* CORRECTS PROBLEM WHERE UCS_OV_PREPARE FAILS
* DUE TO REPEATED BLANK MESSAGE TYPES IN TPMS
* SERVICE TABLES
*
* 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(020,X00,XF0,NAME=UCS_P550_020_P00)
POINT(UCS971.UCS971TPNAMES)

PATCH(X32C,X30840680,CODE
  LCT.L     4       * TRAMPLED CODE LINE 207
  JNZ       £A
  LB.L      X12
  LSS       0       
  ST.MIP    X528
  J         X33A    * RETURN
£A
  ICP       -1      * = WRONG_SCL_BLOCK?
  JE        X33A    * RETURN IF IT IS
  LB.L      X30     * GET MSGS(I).MTINAME
  MYB       X24     *
  LD.L      X25     *
  MODD.B            *
  ADB.L     X26     *
  LD.P      X520    *
  INCA.B
  CYD               *
  LDRL.P     £B     * 12 SPACES
  CPS               *
  JNE       X33A    * RETURN IF NOT =
  LSS       0       *
  ST.L      X2F     * INS_RES
  J         X33A    * RETURN
  ALIGND
£B X1800000C
   8
   C'            '  
END,NO,NAME=UCS_P550_020_P01)
CHECKSUM(F3DC9435)