Lines Matching refs:mwerks
16 $drdecor=$::mwerks?".":""; # directive decoration
24 if (!$::mwerks)
50 $ret .= " PTR" if ($::mwerks);
83 sub ::BC { (($::mwerks)?"":"BYTE ")."@_"; }
84 sub ::DWC { (($::mwerks)?"":"DWORD ")."@_"; }
87 { if ($::mwerks) { push(@out,".section\t.text,64\n"); }
116 $begin =~ s/^\@/./ if ($::mwerks); # the torture never stops
157 { push(@out,(($::mwerks)?".byte\t":"db\t").join(',',@_)."\n"); }
159 { push(@out,(($::mwerks)?".word\t":"dw\t").join(',',@_)."\n"); }
161 { push(@out,(($::mwerks)?".long\t":"dd\t").join(',',@_)."\n"); }
183 { if ($mwerks) { push(@out,".section\t.data,4\n"); }
