Commit | Line | Data |
---|---|---|
a002c9f4 KM |
1 | /* Copyright (c) 1979 Regents of the University of California */ |
2 | ||
ef5ad5b1 | 3 | static char sccsid[] = "@(#)PCSTART.c 1.3 %G%"; |
a002c9f4 KM |
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; | |
ef5ad5b1 | 15 | long _seed = 1; |
a002c9f4 KM |
16 | char *_minptr = (char *)0x7fffffff; |
17 | char *_maxptr = (char *)0; | |
93ac5838 | 18 | struct errentry _entry[MAXERRS]; |
a002c9f4 KM |
19 | |
20 | /* | |
21 | * file record variables | |
22 | */ | |
23 | long _filefre = PREDEF; | |
24 | struct iorechd _fchain = { | |
25 | 0, 0, 0, 0, /* only use fchain field */ | |
26 | INPUT /* fchain */ | |
27 | }; | |
28 | struct iorec *_actfile[MAXFILES] = { | |
29 | INPUT, | |
30 | OUTPUT, | |
31 | ERR | |
32 | }; | |
33 | ||
34 | /* | |
35 | * standard files | |
36 | */ | |
37 | char _inwin, _outwin, _errwin; | |
38 | struct iorechd input = { | |
39 | &_inwin, /* fileptr */ | |
40 | 0, /* lcount */ | |
41 | 0x7fffffff, /* llimit */ | |
42 | &_iob[0], /* fbuf */ | |
43 | OUTPUT, /* fchain */ | |
44 | STDLVL, /* flev */ | |
45 | "standard input", /* pfname */ | |
46 | FTEXT | FREAD | SYNC, /* funit */ | |
47 | 0, /* fblk */ | |
48 | 1 /* fsize */ | |
49 | }; | |
50 | struct iorechd output = { | |
51 | &_outwin, /* fileptr */ | |
52 | 0, /* lcount */ | |
53 | 0x7fffffff, /* llimit */ | |
54 | &_iob[1], /* fbuf */ | |
55 | ERR, /* fchain */ | |
56 | STDLVL, /* flev */ | |
57 | "standard output", /* pfname */ | |
58 | FTEXT | FWRITE | EOFF, /* funit */ | |
59 | 1, /* fblk */ | |
60 | 1 /* fsize */ | |
61 | }; | |
62 | struct iorechd _err = { | |
63 | &_errwin, /* fileptr */ | |
64 | 0, /* lcount */ | |
65 | 0x7fffffff, /* llimit */ | |
66 | &_iob[2], /* fbuf */ | |
67 | FILNIL, /* fchain */ | |
68 | STDLVL, /* flev */ | |
69 | "Message file", /* pfname */ | |
70 | FTEXT | FWRITE | EOFF, /* funit */ | |
71 | 2, /* fblk */ | |
72 | 1 /* fsize */ | |
73 | }; | |
74 | ||
75 | PCSTART() | |
76 | { | |
77 | /* | |
78 | * necessary only on systems which do not initialize | |
79 | * memory to zero | |
80 | */ | |
81 | ||
82 | struct iorec **ip; | |
83 | ||
84 | for (ip = &_actfile[3]; ip < &_actfile[MAXFILES]; *ip++ = FILNIL); | |
85 | } |