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: }