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