|
|
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.