%routine Repeat(%routine Body, %record(Stackfm)%name Times, %integer Inc, How)
   %integer Label
   %return %if Iconst(Times) %and Times_Disp <= 0
   Loadup(Times)
   Label = New Label;  Define Label(Label)
      Body
      Plant1(SUB!Scc, Times_Base, Times_Base, Immediate(Inc))
   Jump To(Label, How)
   Remember Zero(Times_Base) %if How = NE
   Release and Drop(Times)
%end
%endoffile