xref: /csrg-svn/usr.bin/pascal/libpc/FSAV.c (revision 3432)
11654Smckusick /* Copyright (c) 1979 Regents of the University of California */
21654Smckusick 
3*3432Smckusic static char sccsid[] = "@(#)FSAV.c 1.3 04/01/81";
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 {
13*3432Smckusic 	frtn->fentryaddr = entryaddr;
14*3432Smckusic 	frtn->fbn = cbn;
15*3432Smckusic 	blkcpy(frtn->fbn * sizeof(struct display),
16*3432Smckusic 	       &_disply[1], &frtn->fdisp[0]);
171654Smckusick 	return frtn;
181654Smckusick }
19