|
|
1.1 root 1: /* Copyright (c) 1979 Regents of the University of California */
2:
3: static char sccsid[] = "@(#)PCSTART.c 1.1 10/29/80";
4:
5: #include "h00vars.h"
6:
7: /*
8: * program variables
9: */
10: struct display _disply[MAXLVL];
11: int _argc;
12: char **_argv;
13: long _stlim = 500000;
14: long _stcnt = 0;
15: char *_minptr = (char *)0x7fffffff;
16: char *_maxptr = (char *)0;
17:
18: /*
19: * file record variables
20: */
21: long _filefre = PREDEF;
22: struct iorechd _fchain = {
23: 0, 0, 0, 0, /* only use fchain field */
24: INPUT /* fchain */
25: };
26: struct iorec *_actfile[MAXFILES] = {
27: INPUT,
28: OUTPUT,
29: ERR
30: };
31:
32: /*
33: * standard files
34: */
35: char _inwin, _outwin, _errwin;
36: struct iorechd input = {
37: &_inwin, /* fileptr */
38: 0, /* lcount */
39: 0x7fffffff, /* llimit */
40: &_iob[0], /* fbuf */
41: OUTPUT, /* fchain */
42: STDLVL, /* flev */
43: "standard input", /* pfname */
44: FTEXT | FREAD | SYNC, /* funit */
45: 0, /* fblk */
46: 1 /* fsize */
47: };
48: struct iorechd output = {
49: &_outwin, /* fileptr */
50: 0, /* lcount */
51: 0x7fffffff, /* llimit */
52: &_iob[1], /* fbuf */
53: ERR, /* fchain */
54: STDLVL, /* flev */
55: "standard output", /* pfname */
56: FTEXT | FWRITE | EOFF, /* funit */
57: 1, /* fblk */
58: 1 /* fsize */
59: };
60: struct iorechd _err = {
61: &_errwin, /* fileptr */
62: 0, /* lcount */
63: 0x7fffffff, /* llimit */
64: &_iob[2], /* fbuf */
65: FILNIL, /* fchain */
66: STDLVL, /* flev */
67: "Message file", /* pfname */
68: FTEXT | FWRITE | EOFF, /* funit */
69: 2, /* fblk */
70: 1 /* fsize */
71: };
72:
73: PCSTART()
74: {
75: /*
76: * necessary only on systems which do not initialize
77: * memory to zero
78: */
79:
80: struct iorec **ip;
81:
82: for (ip = &_actfile[3]; ip < &_actfile[MAXFILES]; *ip++ = FILNIL);
83: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.