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