DMSDM Source

         MACRO                                                          00001000
&NM      DMSDM &R1,&R2,&FIELD,&MNEM,&VAL                                00002000
         LCLC  &S,&L,&LL                                                00003000
&S       SETC  '&SYSNDX'                                                00004000
&L       SETC  '&NM'                                                    00005000
         AIF   ('&NM' NE '').N                                          00006000
&L       SETC  'DMSL&S'                                                 00007000
.N       ANOP                                                           00008000
&L       &MNEM &R1,&FIELD                                               00009000
         AIF   ('&R1' EQ '&R2').MEND                                    00010000
         &MNEM &R2,4*(&R2-&R1)+&FIELD                                   00011000
         ORG   &L                                                       00012000
DMSN&S   EQU   (&R2-&R1)/2+1                                            00013000
&LL      SETC  'DMSN&S'                                                 00014000
         DC    (&LL)S(256*&VAL+16*(&R1+(*-&L)/2)(6),2*(*-&L-2)+&FIELD)  00015000
.MEND    MEND                                                           00016000