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