do/push

   1 STR *
   2 do_push(ary,arglast)
   3 register ARRAY *ary;
   4 int *arglast;
   5 {
   6     register STR **st = stack->ary_array;
   7     register int sp = arglast[1];
   8     register int items = arglast[2] - sp;
   9     register STR *TARG = &str_undef;
  10
  11     for (st += ++sp; items > 0; items--,st++) {
  12         TARG = Str_new(26,0);
  13         if (*st)
  14             str_sset(TARG,*st);
  15         (void)apush(ary,TARG);
  16     }
  17     return TARG;
  18 }
  19