|
|
1.1 root 1: /* Copyright (c) 1979 Regents of the University of California */
2:
3: static char sccsid[] = "@(#)FSAV.c 1.1 10/29/80";
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: register struct display *dp;
14: register struct display *ds;
15: struct display *limit;
16:
17: frtn->entryaddr = entryaddr;
18: frtn->cbn = cbn;
19: limit = &frtn->disp[frtn->cbn];
20: for (dp = &_disply[1], ds = &frtn->disp[0]; ds < limit; )
21: *ds++ = *dp++;
22: return frtn;
23: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.