xref: /original-bsd/usr.bin/pascal/libpc/FSAV.c (revision 6c57d260)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)FSAV.c 1.3 04/01/81";
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 	frtn->fentryaddr = entryaddr;
14 	frtn->fbn = cbn;
15 	blkcpy(frtn->fbn * sizeof(struct display),
16 	       &_disply[1], &frtn->fdisp[0]);
17 	return frtn;
18 }
19