1 /* Copyright (c) 1979 Regents of the University of California */ 2 3 static char sccsid[] = "@(#)FCALL.c 1.3 04/01/81"; 4 5 #include "h00vars.h" 6 7 FCALL(save, frtn) 8 char *save; 9 register struct formalrtn *frtn; 10 { 11 blkcpy(frtn->fbn * sizeof(struct display), &_disply[1], save); 12 blkcpy(frtn->fbn * sizeof(struct display), &frtn->fdisp[0], 13 &_disply[1]); 14 } 15