11650Smckusick /* Copyright (c) 1979 Regents of the University of California */ 21650Smckusick 3*3430Smckusic static char sccsid[] = "@(#)FCALL.c 1.3 04/01/81"; 41650Smckusick 51650Smckusick #include "h00vars.h" 61650Smckusick 7*3430Smckusic FCALL(save, frtn) 8*3430Smckusic char *save; 91650Smckusick register struct formalrtn *frtn; 101650Smckusick { 11*3430Smckusic blkcpy(frtn->fbn * sizeof(struct display), &_disply[1], save); 12*3430Smckusic blkcpy(frtn->fbn * sizeof(struct display), &frtn->fdisp[0], 13*3430Smckusic &_disply[1]); 141650Smckusick } 15