NAME TNLNCS TNLEXCAA
VER 0618 5810,D0CC L R1,GWARMTCH
REP 0618 58F0,BFF8 L R15,PCBXPAT
REP 061C 47F0,F000 B *PATCH*
REP 0620 0700 NOPR
*
VER 175E 5820,603C L R2,60(,R6)
REP 175E BF8F,115C ICM R8,B'1111',RMPSLIST-RME(R1)
REP 1762 4150,D144 LA R5,GWAVRLST
REP 1766 5820,603C EXCA9410 L R2,60(,R6)
REP 176A 4130,2012 LA R3,18(,R2)
REP 176E 4820,2010 LH R2,16(,R2)
REP 1772 D501,8006,3000 EXCA9412 CLC 6(2,R8),0(R3)
REP 1778 4780,A07A BE EXCA9416
REP 177C 4130,3002 LA R3,2(,R3)
REP 1780 4620,A046 BCT R2,EXCA9412
REP 1784 9110,107C TM RMPFLAG3-RME(R1),RMP3REPL
REP 1788 47E0,A09E BNO EXCA9420
REP 178C BFFF,800C ICM R15,B'1111',12(R8)
REP 1790 4780,A06C BZ EXCA9414
REP 1794 47F0,A09E B EXCA9420
REP 1798 D201,5000,8006 EXCA9414 MVC 0(2,R5),0(R8)
REP 179E 4150,5002 LA R5,2(,R5)
REP 17A2 47F0,A09E B EXCA9420
REP 17A6 BFFF,800C EXCA9416 ICM R15,B'1111',12(R8)
REP 17AA 4780,A090 BZ EXCA9418
REP 17AE D501,8008,A1AC CLC 8(2,R8),=H'0'
REP 17B4 4780,A090 BE EXCA9418
REP 17B8 47F0,A09E B EXCA9420
REP 17BC D201,5000,3000 EXCA9418 MVC 0(2,R5),0(R3)
REP 17C2 9680,3000 OI 0(R3),X'80'
REP 17C6 4150,5002 LA R5,2(,R5)
REP 17CA 4180,8010 EXCA9420 LA R8,16(,R8)
REP 17CE D507,8000,B69C CLC 0(8,R8),PCBBLNKS
REP 17D4 4770,A03A BNE EXCA9410
REP 17D8 5881,015C L R8,RMPSLIST-RME(R1)
REP 17DC 5870,D0E4 L R7,GWATOTAL
REP 17E0 5820,603C EXCA9435 L R2,60(,R6)
REP 17E4 4130,2012 LA R3,18(,R2)
REP 17E8 4820,2010 LH R2,16(,R2)
REP 17EC D501,8006,3000 EXCA9438 CLC 6(2,R8),0(R3)
REP 17F2 4780,A124 BE EXCA9440
REP 17F6 4130,3002 LA R3,2(,R3)
REP 17FA 4620,A0C0 BCT R2,EXCA9438
REP 17FE 9110,107C TM RMPFLAG3-RME(R1),RMP3REPL
REP 1802 47E0,A15A BNO EXCA9450
REP 1806 41F0,D144 LA R15,GWAVRLST
REP 180A D501,8006,F000 EXCA9439 CLC 6(2,R8),0(R15)
REP 1810 4780,A15A BE EXCA9450
REP 1814 41F0,F002 LA R15,2(,R15)
REP 1818 D501,F000,A1AC CLC 0(2,R15),=H'0'
REP 181E 4770,A0DE BNE EXCA9439 '
REP 1822 BFFF,800C ICM R15,B'1111',12(R8)
REP 1826 4CF0,A1AE MH R15,=H'100'
REP 182A 17EE XR R14,R14
REP 182C 1277 LTR R7,R7
REP 182E 4770,A10C BNZ EXCA943A
REP 1832 17FF XR R15,R15
REP 1834 47F0,A10E B EXCA943B
REP 1838 1DE7 EXCA943A DR R14,R7B
REP 183A 49F8,0008 EXCA943B CH R15,8(R8)
REP 183E 4720,A15A BH EXCA9450
REP 1842 D201,5000,8006 MVC 0(2,R5),6(R8)
REP 1848 4150,5002 LA R5,2(,R5)
REP 184C 47F0,A15A B EXCA9450
REP 1850 9180,3000 EXCA9440 TM 0(R3),X'80'
REP 1854 4710,A15A BO EXCA9450
REP 1858 BFFF,800C ICM R15,B'1111',12(R8)
REP 185C 4CF0,A1AE MH R15,=H'100'
REP 1860 17EE XR R14,R14
REP 1862 1277 LTR R7,R7
REP 1864 4770,A142 BNZ EXCA9442
REP 1868 17FF XR R15,R15
REP 186A 47F0,A144 B EXCA9444
REP 186E 1DE7 EXCA9442 DR R14,R7
REP 1870 49F8,0008 EXCA9444 CH R15,8(R8)
REP 1874 4720,A15A BH EXCA9450
REP 1878 D201,5000,3000 MVC 0(2,R5),0(R3)
REP 187E 9680,3000 OI 0(R3),X'80'
REP 1882 4150,5002 LA R5,2(,R5)
REP 1886 4180,8010 EXCA9450 LA R8,16(,R8)
REP 188A D507,8000,B69C CLC 0(8,R8),PCBBLNKS
REP 1890 4770,A0B4 BNE EXCA9435
REP 1894 58E0,BFF8 L R14,PCBXPAT
REP 1898 47F0,E02A B *PATCH*
*
NAME TNZNCS TNZPATCH
VER 10D7 00 VERIFY PTF NOT ON
REP 10D7 AF TNC17564 IS NOW ON
*
VER 13E4 F000,F002,F004,F006,F008,F00A,F00C,F00E
VER 13F4 F010,F012,F014,F016,F018,F01A,F01C,F01E
VER 1404 F020,F022,F024,F026,F028
REP 13E4 5810,D0CC L R1,GWARMTCH
REP 13E8 D703,D144,D144 XC GWAVRLST,GWAVRLST
REP 13EE 9110,107C TM RMPFLAG3-RME(R1),RMP3REPL
REP 13F2 4710,F026 BO EXCA4012
REP 13F6 5820,603C L R2,60(,R6)
REP 13FA 4130,2012 LA R3,18(,R2)
REP 13FE 4820,2010 LH R2,16(,R2)
REP 1402 4920,AC50 CH R2,=AL2(1)
REP 1406 4780,A66A BE EXCA4015
REP 140A 47F0,A622 EXCA4012 B *RETURN*
*
VER 140E F02A,F02C,F02E
VER 1414 F030,F032,F034,F036,F038,F03A,F03C,F03E
VER 1424 F040,F042,F044,F046,F048,F04A,F04C,F04E
VER 1434 F050,F052,F054,F056,F058,F05A,F05C,F05E
VER 1444 F060,F062,F064,F066,F068,F06A,F06C,F06E
VER 1454 F070,F072,F074,F076,F078,F07A,F07C,F07E
VER 1464 F080,F082,F084,F086,F088,F08A,F08C,F08E
VER 1474 F090,F092,F094,F096,F098,F09A,F09C,F09E
VER 1484 F0A0,F0A2,F0A4,F0A6,F0A8,F0AA,F0AC,F0AE
VER 1494 F0B0,F0B2,F0B4,F0B6,F0B8,F0BA,F0BC,F0BE
VER 14A4 F0C0,F0C2,F0C4,F0C6,F0C8,F0CA,F0CC,F0CE
VER 14B4 F0D0,F0D2,F0D4,F0D6
*
REP 140E 5881,015C L R8,RMPSLIST-RME(R1)
REP 1412 41F0,D144 EXCA9455 LA R15,GWAVRLST
REP 1416 D501,8006,F000 EXCA9456 CLC 6(2,R8),0(R15)
REP 141C 4780,E094 BE EXCA9464
REP 1420 41F0,F002 LA R15,2(R15)
REP 1424 D501,F000,A1AC CLC 0(2,R15),=H'0'
REP 142A 4770,E032 BNE EXCA9456
REP 142E 5820,603C EXCA9460 L R2,60(,R6)
REP 1432 4130,2012 LA R3,18(,R2)
REP 1436 4820,2010 LH R2,16(,R2)
REP 143A D201,D288,3000 EXCA9461 MVC GWADWORD(2),0(R3)
REP 1440 947F,D288 NI GWADWORD,X'7F'
REP 1444 D501,8006,D288 CLC 6(2,R8),GWADWORD
REP 144A 4780,E07E BE EXCA9462
REP 144E 4130,3002 LA R3,2(,R3)
REP 1452 4620,E056 BCT R2,EXCA9461
REP 1456 9110,107C TM RMPFLAG3-RME(R1),RMP3REPL
REP 145A 47E0,E094 BNO EXCA9464
REP 145E 47F0,E08A B EXCA9463
REP 1462 9180,3000 EXCA9462 TM 0(R3),X'80'
REP 1466 4710,E094 BO EXCA9464
REP 146A 9680,3000 OI 0(R3),X'80'
REP 146E D201,5000,8006 EXCA9463 MVC 0(2,R5),6(R8)
REP 1474 4150,5002 LA R5,2(,R5)
REP 1478 4180,8010 EXCA9464 LA R8,16(,R8)
REP 147C D507,8000,B69C CLC 0(8,R8),PCBBLNKS
REP 1482 4770,E02E BNE EXCA9455
REP 1486 5820,603C L R2,60(,R6)
REP 148A 4130,2012 LA R3,18(,R2)
REP 148E 4820,2010 LH R2,16(,R2)
REP 1492 9180,3000 EXCA9465 TM 0(R3),X'80'
REP 1496 4710,E0C8 BO EXCA9470
REP 149A 9110,107C TM RMPFLAG3-RME(R1),RMP3REPL
REP 149E 4710,E0C8 BO EXCA9470
REP 14A2 D201,5000,3000 MVC 0(2,R5),0(R3)
REP 14A8 4150,5002 LA R5,2(,R5)
REP 14AC 947F,3000 EXCA9470 NI 0(R3),X'7F'
REP 14B0 4130,3002 LA R3,2(,R3)
REP 14B4 4620,E0AE BCT R2,EXCA9465
REP 14B8 47F0,A186 B EXCA9480 (RETURN)
|
