/* set up files and initial address mappings */
maxfile
=1L<<24; maxstor
=1L<<16;
DO IF
eqstr("-w",argv
[1])
THEN wtflag
=2; argc
--; argv
++;
IF argc
>1 THEN symfil
= argv
[1]; FI
IF argc
>2 THEN corfil
= argv
[2]; FI
/* set up variables for user */
maxoff
=MAXOFF
; maxpos
=MAXPOS
;
IF (sigint
=signal(SIGINT
,01))!=01
THEN sigint
=fault
; signal(SIGINT
,fault
);
sigqit
=signal(SIGQUIT
,1);
IF executing THEN
delbp(); FI
THEN
printf("%s\n",errflg
);
THEN mkfault
=0; printc(EOR
); prints(DBNAME
);
THEN
iclose(); eof
=0; longjmp(erradb
,1);
IF lp ANDF lastc
!=EOR THEN
error(NOEOR
); FI