xref: /original-bsd/usr.bin/pascal/libpc/FSAV.c (revision 2301fdfb)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)FSAV.c 1.4 11/12/82";
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(&_disply[1], &frtn->fdisp[0],
16 		frtn->fbn * sizeof(struct display));
17 	return frtn;
18 }
19