|
|
1.1 ! root 1: /* Copyright (c) 1979 Regents of the University of California */ ! 2: ! 3: static char sccsid[] = "@(#)FRTN.c 1.1 10/29/80"; ! 4: ! 5: #include "h00vars.h" ! 6: ! 7: FRTN(frtn, result) ! 8: register struct formalrtn *frtn; ! 9: int result; ! 10: { ! 11: register struct display *dp; ! 12: register struct display *ds; ! 13: struct display *limit; ! 14: ! 15: limit = &frtn->disp[2 * frtn->cbn]; ! 16: for (ds = &frtn->disp[frtn->cbn], dp = &_disply[1]; ds < limit; ) ! 17: *dp++ = *ds++; ! 18: return result; ! 19: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.