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