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