xref: /csrg-svn/usr.bin/pascal/libpc/FSAV.c (revision 3006)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)FSAV.c 1.2 03/07/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->entryaddr = entryaddr;
14 	frtn->cbn = cbn;
15 	blkcpy(frtn->cbn * sizeof(struct display),
16 	       &_disply[1], &frtn->disp[0]);
17 	return frtn;
18 }
19