MACRO                                                          00001000
         DMSTMS &TRK,&DEN,&TRT                                          00002000
         GBLC  &DMSMODE                                                 00003000
         LCLC  &DD,&MMM                                                 00004000
         AIF   (T'&TRK EQ 'O').NTRK                                     00005000
         AIF   ('&TRK' NE '9').CHKS                                     00006000
.NINE    ANOP                                                           00007000
&DD      SETC  '11'                                                     00008000
&MMM     SETC  '000'                                                    00009000
         AIF   (T'&DEN EQ 'O').VTRT                                     00010000
         AIF   ('&DEN' EQ '1600').VTRT                                  00011000
         AIF   ('&DEN' EQ '6250').SETHI                                 00012000
&MMM     SETC  '001'                                                    00013000
         AIF   ('&DEN' NE '800').ERR1                                   00014000
.VTRT    AIF   (T'&TRT NE 'O').ERR1                                     00015000
.EXIT    ANOP                                                           00016000
&DMSMODE SETC  '&DD&MMM.011'                                            00017000
         MEXIT                                                          00018000
.SETHI   ANOP                                                           00019000
&MMM     SETC  '010'                                                    00020000
         AGO   .VTRT                                                    00021000
.CHKS    AIF   ('&TRK' NE '7').ERR1                                     00022000
.SEVN    ANOP                                                           00023000
&DD      SETC  '10'                                                     00024000
&MMM     SETC  '110'                                                    00025000
         AIF   (T'&DEN EQ 'O').CTRT                                     00026000
         AIF   ('&DEN' EQ '800').CTRT                                   00027000
&DD      SETC  '01'                                                     00028000
         AIF   ('&DEN' EQ '556').CTRT                                   00029000
&DD      SETC  '00'                                                     00030000
         AIF   ('&DEN' NE '200').ERR1                                   00031000
.CTRT    AIF   (T'&TRT EQ 'O').EXIT                                     00032000
         AIF   ('&TRT' EQ 'O').EXIT                                     00033000
&MMM     SETC  '010'                                                    00034000
         AIF   ('&TRT' EQ 'OC').EXIT                                    00035000
&MMM     SETC  '111'                                                    00036000
         AIF   ('&TRT' EQ 'OT').EXIT                                    00037000
&MMM     SETC  '100'                                                    00038000
         AIF   ('&TRT' EQ 'E').EXIT                                     00039000
&MMM     SETC  '101'                                                    00040000
         AIF   ('&TRT' EQ 'ET').EXIT                                    00041000
         AGO   .ERR1                                                    00042000
.NTRK    AIF   (T'&TRT NE 'O').SEVN                                     00043000
         AIF   (T'&DEN EQ 'O').NDEN                                     00044000
         AIF   ('&DEN' EQ '800').NINE                                   00045000
         AIF   ('&DEN' EQ '1600').NINE                                  00046000
         AIF   ('&DEN' EQ '6250').NINE                                  00047000
         AGO   .SEVN                                                    00048000
.ERR1     MNOTE 8,'INVALID OR CONFLICTING MODE PARAMETERS'              00049000
.NDEN    ANOP                                                           00050000
&DMSMODE SETC  '0'                                                      00051000
         MEND                                                           00052000