* SCEPTRE AMENDMENT UCSP_550_004
*
* Release: 5.5
* Date: 15 APRIL 1999
*
* TPS monitor crashes with Logic Error 2270 in ICL8TCTTSBATCHCOMMON.
*
* 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: ICL8_UCS7_TPS (5500)
*
AREA(UCS093.PATCHES)
ALTER(004,X00,XF1,NAME=UCS_P550_004/0_P00)
POINT(UCS790.UCS790_C)
PATCH(X12,X6E125883,CODE        * LINE 64
   ASF     X52
   STD.L   3
END,YES,NAME=UCS_P550_004/0_P01)
 
PATCH(X20,X7380004C,CODE        * LINE 67
   LDA     X48
   INCA.L  3
   STD.L   XB
   LDTB.P  #A
   LDA     X64
   J       X30
   ALIGN
#A X18000100
END,NO,NAME=UCS_P550_004/0_P02)
ALTER(X52,X5A92,X5AD9,           * LINE 5-6
NAME=UCS_P550_004/0_P03)
ALTER(X78,X7A92,X7AD9,           * LINE 5-15
NAME=UCS_P550_004/0_P04)
ALTER(X86,X1492,X14D9,           * LINE 5-17
NAME=UCS_P550_004/0_P05)
ALTER(X94,X1492,X14D9,           * LINE 5-19
NAME=UCS_P550_004/0_P06)
ALTER(XA8,X1492,X14D9,           * LINE 5-21
NAME=UCS_P550_005/0_P07)
PATCH(X148,X18046228,CODE        * LINE 110
@
@  (WORD:10) -> WDESC( INFO_CONTROL( 0 SIZE 4 ) );
@
   LSS     XA
   LD.L    XB
   LDTB.P  #Z
   ST.D
@
@  (WORD:1) -> WDESC( INFO_CONTROL( 4 SIZE 4 ) );
@
   LSS     1
   LD.L    XB
   INCA    4
   LDTB.P  #Z
   ST.D
@
@  (WORD:1) -> WDESC( INFO_TABLE( 0 SIZE 4 ) );
@
   LD.L    XD
   LDTB.P  #Z
   ST.D
 
   PRCL    4   * TRAMPLED CODE
   LSS     X28 * TRAMPLED CODE
   J       X14C
   ALIGN
#Z X28000001
END,NO,NAME=UCS_P550_004/0_P08)
CHE(7DEB5295)