\makeatletter
\def\newinsert#1{%
\@tempswafalse
\global\advance\insc@unt\m@ne
\ifnum\count10<\insc@unt
\ifnum\count11<\insc@unt
\ifnum\count12<\insc@unt
\ifnum\count14<\insc@unt
\@tempswatrue
\fi\fi\fi\fi
\if@tempswa
%\typeout{A====}%
%\global\advance\insc@unt\m@ne
\allocationnumber\insc@unt
\else
\global\advance\insc@unt\@ne
%\typeout{B====}%
\extrafloats\@ne
\@next\@currbox\@freelist
{\ifnum\@currbox<\e@insert@top
\allocationnumber\@currbox
\else
\ch@ck0\m@ne\insert