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