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