* SCEPTRE AMENDMENT UCS_P550_023 * * Release 5.5 * Date 8th February 2001 * * Overlord fails to cope with IDMS 600. * Gives P.E 2/0 (Fixed Point Overflow) in module * ICL8UCS9MON IIN 3 at X49E8 * * The amendment UCS_P550_023 below corrects this error. Please * apply it using the procedure described in the Software Notice * issued with the Sceptre software. * * Module to be amended is: ICL8UCS9MON * AREA(UCS093.PATCHES) ALTER(023,X00,XF0,NAME=UCS_P550_023_P00) POINT(UCS933.ICL8UCSOIDMSMONITOR_C) ALTER(0,X6E2B,X6E2C,NAME=UCS_P550_023_P01) PATCH(X5C,X62010240,CODE * LINE 52 LB 1 * TR- JG #A * -AM- LB 0 * -PL- #A STB.L X21 * -ED UCP 6 LB 1 JE #B LB 0 #B STB.L X34 * NEW BOOL IDMS600 J X66 END,NO,NAME=UCS_P550_023_P02) PATCH(XEA,X7A9A2A20,CODE LSS.L X34 * IDMS 600 JZ #Y LB.L X1A MYB 56 * NEW LENGTH LD.L X17 MODD.B ADB.L X18 LD.P X5A0 * OLD DESCRIPTOR INCA 8 * EXTRA OFFSET J XF8 #Y LB.L X1A * TRAM- MYB X20 * -PLED J XEE END,NO,NAME=UCS_P550_023_P03) PATCH(X15C,X7A9C2B80,CODE * LINE 97 LSS.L X34 * IDMS600 JZ #Y LB.L X1C MYB 144 LD.L X15 MODD.B ADB.L X16 LD.P X5B0 * OLD DESCRIPTOR INCA 12 * EXTRA OFFSET INCA.B LSS.D * SUSPEND INCA -8 LUH.D * RES J X176 #Y LB.L X1C * TRAM- MYB X50 * -PLED J X162 END,NO,NAME=UCS_P550_023_P04) PATCH(X184,X7A9D2B80,CODE * LINE 100 LSS.L X34 * IDMS600 JZ #Y LB.L X1D MYB 144 LD.L X15 MODD.B ADB.L X16 LD.P X5C0 * OLD DESCRIPTOR INCA 20 * EXTRA OFFSET INCA.B LSS.D * READS INCA -8 LUH.D * WRITES J X19E #Y LB.L X1D * TRAM- MYB X50 * -PLED J X18A END,NO,NAME=UCS_P550_023_P05) PATCH(X1D6,X6297CA08,CODE * LINE 111 LSS.L X34 * IDMS600 JZ #Y LSS.L X17 * ACT T&B ROT 8 USH -8 IDV 56 * NEW LENGTH J X1DE #Y LSS.L X17 * TRAM- ROT 8 * -PLED J X1DA END,NO,NAME=UCS_P550_023_P06) PATCH(X1F2,X7AA22A20,CODE * LINE 113 LB.L X34 * IDMS600 JZB #Y LB.L X22 * I MYB 56 ADB.L X18 * ACT ADDR IAD.MIP #A LB.L X13 ST.MIP X548 * RESERVES LSS.MIP X5D0 LB.L X22 MYB 56 ADB.L X18 IAD.MIP #B LB.L X13 ST.MIP X5D0 * SUSPENDS LSS.MIP X5C8 LB.L X22 MYB 56 ADB.L X18 IAD.MIP #C LB.L X13 ST.MIP X5C8 * WRITES LSS.MIP X5D8 LB.L X22 MYB 56 ADB.L X18 IAD.MIP #D J X238 ALIGND #A X2B000001 X00000014 #B X2B000001 X00000018 #C X2B000001 X0000001C #D X2B000001 X00000020 #Y LB.L X22 * TRAM- MYB X20 * -PLED J X1F6 END,NO,NAME=UCS_P550_023_P07) PATCH(X2AA,X7BFC20AF,CODE * LINE 131 LSS.L X34 * IDMS600 JZ #Y LB.MD * JD62.ID ADB 269 * SUSRES FOR 600 MYB 144 LD.L X15 * ACT MODD.B ADB.L X16 STB.L X32 * SUSRESACSD LB.L X2E * JD62 LB.MIP X5B8 ADB 269 * RDWRIT FOR 600 MYB 144 LD.L X15 MODD.B ADB.L X16 STB.L X33 * RDWRTACSD LB.L X14 LSS.MIP X548 * RESERVES LB.L X32 IAD.MIP X5D0 LB.L X14 ST.MIP X548 LSS.MIP X5D0 * SUSPENDS LB.L X32 IAD.MIP X5D8 LB.L X14 ST.MIP X5D0 LSS.MIP X5C8 LB.L X33 IAD.MIP #A LB.L X14 ST.MIP X5C8 * WRITES LSS.MIP X5D8 LB.L X33 IAD.MIP #B J X302 ALIGND #A X2B000001 X00000034 #B X2B000001 X0000003C #Y LB.MD * TRAM- ADB.L X2F * -PLED J X2AE END,NO,NAME=UCS_P550_023_P08) PATCH(X3C4,X7AB12003,CODE * LINE 160 LB.L X34 * IDMS600 JZB #Y LB.L X31 * I ADB 3 MYB 144 LD.L X15 MODD.B ADB.L X16 SLSS.MIP X5D0 * RESERVES LD.P X630 INCA.L X10 ST.DL X31 IAD.T LB.L X10 ST.MIP X628 * LINE 162 LSS.MIP X620 LB.L X31 ADB 3 MYB 144 LD.L X15 MODD.B ADB.L X16 SLSS.MIP X5D8 * SUSPENDS J X3FE #Y LB.L X31 * TRAM- ADB 3 * -PLED J X3C8 END,NO,NAME=UCS_P550_023_P09) PATCH(X416,X7B8000A0,CODE * LINE 166 LSS.L X34 * IDMS600 JZ #Y LB 288 * (2) LD.L X15 MODD.B ADB.L X16 LSS.MIP X5D0 * RES LB.L X10 ST.MIP X640 LB 288 LD.L X15 MODD.B ADB.L X16 LSS.MIP X5D8 * SUS LB.L X10 ST.MIP X648 * LINE 169 LB 144 * (1) LD.L X15 MODD.B ADB.L X16 LSS.MIP X5D0 * RES LB.L X10 ST.MIP X650 LB 144 LD.L X15 MODD.B ADB.L X16 LSS.MIP X5D8 * SUS J X460 #Y LB XA0 * TRAM- J X41A * -PLED END,NO,NAME=UCS_P550_023_P10) PATCH(X4AC,X7AB22B80,CODE * LINE 182 LB.L X34 * IDMS600 JZB #Y LB.L X32 MYB 144 LD.L X15 MODD.B ADB.L X16 IAD.MIP X5D0 * RES LB.L X10 ST.MIP X660 LSS.MIP X668 LB.L X32 MYB 144 LD.L X15 MODD.B ADB.L X16 IAD.MIP X5D8 * SUS J X4D6 #Y LB.L X32 * TRAM- MYB X50 * -PLED J X4B2 END,NO,NAME=UCS_P550_023_P11) POINT(UCS922.ICL8UCS0SERVICEAVAILABILITY) PATCH(X27A,X7A0865E8,TO=CODE * LINE 758 LSS.L X17 ICP 4 JL X2BE * LINE 771 LUH 0 * DOUBLE WORD LD.L X15 * SERV DATA LB 0 ST.MD J X308 END,NO,NAME=UCS_P550_023_P12) CHE(194CA7AB)