NAME ISTEXCVR TNLEXRMP
VER 0216 5810,D06C                   L    R1,GWADATE
REP 0216 1744                        XR   R4,R4
REP 0218 5850,B2F8                   L    R5,PCBSTCK
REP 021C 5E50,B068                   AL   R5,PCBTZONE
REP 0220 5F50,A248                   SL   R5,YR1980
REP 0224 8F40,0008                   SLDA R4,8
REP 0228 5D40,A24C                   D    R4,DAYVAL
REP 022C 4150,5001                   LA   R5,1(,R5)
REP 0230 41F0,0007                   LA   R15,7
REP 0234 1744                        XR   R4,R4
REP 0236 1D4F                        DR   R4,R15
REP 0238 4344,A250                   IC   R4,WEEKDAY(R4)
REP 023C 4240,9075                   STC  R4,RMPFLAG4
REP 0240 58E0,D04C                   L    R14,GWALVL2
REP 0244 07FE,0000                   BR   R14
REP 0248 8F80,9FD3          YR1980   DC   XL4'8F809FD3'
REP 024C 0141,DD76          DAYVAL   DC   XL4'0141DD76'
REP 0250 0102,0408          WEEKDAY  DC   XL4'01020408'
REP 0254 1020,4080                   DC   XL4'10204080'
*
NAME TNZNCS TNZPATCH
VER 1094 00                          VERIFY PTF NOT ON
REP 1094 AF                          TNC17549 IS NOW ON