push(@labels,$func);
local($tmp)=<<"EOF";
-_TEXT\$ SEGMENT PARA
+_TEXT\$ SEGMENT PAGE 'CODE'
PUBLIC _$func
$extra
_$func PROC NEAR
local($func,$extra)=@_;
local($tmp)=<<"EOF";
-_TEXT\$ SEGMENT PARA
+_TEXT\$ SEGMENT PAGE 'CODE'
PUBLIC _$func
$extra
_$func PROC NEAR