MACRO                                                          00001000
         CORG  &D,&M                                                    00002000
         ORG   &SYSECT+&D+&M*((*-&SYSECT+&M-&D-1)/&M)                   00003000
         MEND                                                           00004000