xref: /csrg-svn/usr.bin/pascal/libpc/FSAV.c (revision 9134)
11654Smckusick /* Copyright (c) 1979 Regents of the University of California */
21654Smckusick 
3*9134Smckusick static char sccsid[] = "@(#)FSAV.c 1.4 11/12/82";
41654Smckusick 
51654Smckusick #include "h00vars.h"
61654Smckusick 
71654Smckusick struct formalrtn *
81654Smckusick FSAV(entryaddr, cbn, frtn)
91654Smckusick 	long (*entryaddr)();
101654Smckusick 	long cbn;
111654Smckusick 	register struct formalrtn *frtn;
121654Smckusick {
133432Smckusic 	frtn->fentryaddr = entryaddr;
143432Smckusic 	frtn->fbn = cbn;
15*9134Smckusick 	blkcpy(&_disply[1], &frtn->fdisp[0],
16*9134Smckusick 		frtn->fbn * sizeof(struct display));
171654Smckusick 	return frtn;
181654Smckusick }
19