1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)PCSTART.c 1.1 10/30/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 }
84