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