FORTRAN Patch Utility Version 1.0

M(MATEST,1)
A(1,1,X0002,X4)
 ** New value invalid
A(1,200,X0,X1111 2222 3333)
 ** New value invalid
A(1,208,X0000,X999)
 ** New value invalid
CHE()
Checksum is XF34

M(MATEST,1)
A(1,1,X02,X0004)
A(1,200,X0,X1111222233334444)
A(1,208,X0000,X99999999)
CHE(X1111)
Checksum is X1111

Module sys:user>rosemary>MATEST.seg being updated with patch no.   1

Block 1 at word displacement   1
old value     2  <hex>
              2  <dec>
new value     4  <hex>
              4  <dec>

Block 1 at word displacement 200
old value     0  <hex>
              0  <dec>
new value  1111  2222  3333  4444  <hex>
           4369  8738 13107 17476  <dec>

Block 1 at word displacement 208
old value     0  <hex>
              0  <dec>
new value  9999  9999  <hex>
          39321 39321  <dec>

changes written to file sys:user>rosemary>MATEST.seg

M(MATEST,2)
A(2,2,X2D,X000A000B000C)
A(2,248,X0,X0020)
A(1,248,X00,X0010)
C()
Checksum is XF1E

Module sys:user>rosemary>MATEST.seg being updated with patch no.   2

Block 2 at word displacement   2
old value    2D  <hex>
             45  <dec>
new value     A     B     C  <hex>
             10    11    12  <dec>

Block 2 at word displacement 248
old value     0  <hex>
              0  <dec>
new value    20  <hex>
             32  <dec>

Block 1 at word displacement 248
old value     0  <hex>
              0  <dec>
new value    10  <hex>
             16  <dec>

changes written to file sys:user>rosemary>MATEST.seg


M(MATEST2,41)
 ** Patch number invalid
A(13,0,X0,X0001)
 ** Block no. invalid
A(12,260,X0,X0000)
 ** Displacement invalid
A(-1,2,X0,X0)
 ** Block no. invalid
A(1,200,0,X0000)
A(1,100,12,X0000)
A(1,150,X0,0005)
 ** New value invalid
A(1,1,X0,X0000000000000000000000000000000000000000000000000000000000000000000000
 ** New value invalid
CHE()
Checksum is X25CE

M(MATEST2,40)
A(12,255,X0,X7777)
A(11,160,X5,X000A000B000C000D000E000F0010001100120013001400150016001700180019)
CHE()
Checksum is X169F

Module sys:user>rosemary>MATEST2.seg being updated with patch no.  40

Block 12 at word displacement 255
old value     0  <hex>
              0  <dec>
new value  7777  <hex>
          30583  <dec>

Block 11 at word displacement 160
old value     5  <hex>
              5  <dec>
new value     A     B     C     D     E     F    10    11    12    13    14    15    16    17    18    19  <hex>
             10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25  <dec>

changes written to file sys:user>rosemary>MATEST2.seg


M(MATEST,2)
A(2,2,X2D,X000A000B000C)
A(2,248,X0,X0020)
A(1,248,X00,X0010)
C(X0F1E)
Checksum is XF1E

patch no.   2 already applied to module sys:user>rosemary>MATEST.seg