1*1650Smckusick /* Copyright (c) 1979 Regents of the University of California */ 2*1650Smckusick 3*1650Smckusick static char sccsid[] = "@(#)FCALL.c 1.1 10/30/80"; 4*1650Smckusick 5*1650Smckusick #include "h00vars.h" 6*1650Smckusick 7*1650Smckusick FCALL(frtn) 8*1650Smckusick register struct formalrtn *frtn; 9*1650Smckusick { 10*1650Smckusick register struct display *dp; 11*1650Smckusick register struct display *ds; 12*1650Smckusick struct display *limit; 13*1650Smckusick 14*1650Smckusick limit = &frtn->disp[2 * frtn->cbn]; 15*1650Smckusick for (dp = &_disply[1], ds = &frtn->disp[frtn->cbn]; ds < limit; ) 16*1650Smckusick *ds++ = *dp++; 17*1650Smckusick limit = &frtn->disp[frtn->cbn]; 18*1650Smckusick for (ds = &frtn->disp[0], dp = &_disply[1]; ds < limit; ) 19*1650Smckusick *dp++ = *ds++; 20*1650Smckusick return (long)(frtn->entryaddr); 21*1650Smckusick } 22