NAME TNZNCS TNZRMPR
VER 04EA 5810,D06C                   L    R1,GWADATE
REP 04EA 1744                        XR   R4,R4
REP 04EC 5850,B2F8                   L    R5,PCBSTCK
REP 04F0 5E50,B068                   AL   R5,PCBTZONE
REP 04F4 5F50,A51C                   SL   R5,YR1980
REP 04F8 8F40,0008                   SLDA R4,8
REP 04FC 5D40,A520                   D    R4,DAYVAL
REP 0500 4150,5001                   LA   R5,1(,R5)
REP 0504 41F0,0007                   LA   R15,7
REP 0508 1744                        XR   R4,R4
REP 050A 1D4F                        DR   R4,R15
REP 050C 4344,A524                   IC   R4,WEEKDAY(R4)
REP 0510 4240,9075                   STC  R4,RMPFLAG4
REP 0514 58E0,D04C                   L    R14,GWALVL2
REP 0518 07FE,0000                   BR   R14
REP 051C 8F80,9FD3          YR1980   DC   XL4'8F809FD3'
REP 0520 0141,DD76          DAYVAL   DC   XL4'0141DD76'
REP 0524 0102,0408          WEEKDAY  DC   XL4'01020408'
REP 0528 1020,4080                   DC   XL4'10204080'
*
VER 052C 0020,5D40                   VERIFY PTF NOT ON
REP 052C 4120,8004                   LA   R2,4(,R8)
REP 0530 1711                        XR   R1,R1
REP 0532 07FE                        BR   R14
*
VER 05E8 4120,8004                   LA   R2,4(,R8)
REP 05E8 45E0,A52C                   BAL  R14,*PATCH*
NAME TNZNCS TNZPATCH
VER 1093 00                          VERIFY PTF NOT ON
REP 1093 AF                          TNC17548 IS NOW ON