|
|
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.