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