1 /* Copyright (c) 1979 Regents of the University of California */ 2 3 static char sccsid[] = "@(#)FRTN.c 1.2 03/02/81"; 4 5 #include "h00vars.h" 6 7 FRTN(frtn) 8 register struct formalrtn *frtn; 9 { 10 register struct display *dp; 11 register struct display *ds; 12 struct display *limit; 13 14 limit = &frtn->disp[2 * frtn->cbn]; 15 for (ds = &frtn->disp[frtn->cbn], dp = &_disply[1]; ds < limit; ) 16 *dp++ = *ds++; 17 } 18