1 /* BEGIN INCLUDE FILE gcos_flags.incl.pl1   (Wardd Multics)  07/01/81 1344.7 mst Wed */
 2 /* Change: Mel Wilson         03/01/79 to add gtssflag & identflag */
 3 /* Change: Dave Ward          07/01/81 revised, mad apart of gcos_ext_stat_. */
 4 
 5 
 6 /*        Declaration of Simulator Wide Flags      */
 7 
 8 dcl 1 flags aligned based,
 9       2 (
10           pad1,     /* no longer used */
11           copy,     /* 1=copy option on|0=off */
12           snumb,    /* 1=snumb card read|0=not */
13           ident,    /* 1=ident card read|0=not */
14           activ,    /* 1=activity being defined|0=not */
15           cc,       /* 1=courtesy call active|0=not */
16           pad2,     /* no longer used */
17           cksum,    /* 1=don't check checksums|0=do */
18           pad3,     /* no longer used */
19           wrapup,   /* 1=processing wrapup after abort */
20 
21 /* FOLLOWING ADDED AFTER MARCH 73 */
22 
23           nosave,   /* 1=disable save/restart function,0=not */
24           pad4,     /* no longer used */
25           gcos,     /* 1=job deck segment in gcos file format */
26           raw,      /* 1=sysout punch files to be converted to raw bit strings */
27           list,     /* 1=sysout print files to be converted to ascii */
28           brief,    /* 1=print nothing but fatal error messages on terminal */
29           debug,    /* 1=give option to call debug before aborting */
30           no_canonicalize,    /* 1=do NOT canonicalize job deck */
31 
32 /* 18 bits into first word */
33 
34           pad5,     /* no longer used */
35           dpunch,   /* 1=dpunch sysout punch files;0=don't */
36           dprint,   /* 1=dprint sysout print files,0=don't */
37           userid,   /* 1=userid card read,0=not */
38           userlib,  /* 1= -userlib ctl arg given, see gcos_gein_ */
39           dstar,    /* 1=current activity card written on d* */
40           write_etc,          /* 1 tells get_cc_field to write $ ETC cards on etc_filecode */
41           prev_act_abort,     /* turned on by abort and off by $ BREAK */
42           this_act_abort,     /* turned on by abort to select abort disp codes */
43           abort_subact,       /* 1=processing abort subactivity */
44           dump,     /* 1=dump option given on activity card */
45           nondollar,          /* 1=reading nondollar card deck in gein */
46           endjob,   /* 1=cc_endjob already called once in this job */
47           abort_card,         /* 1=the terminator for this activity was a $ ABORT card */
48           truncate, /* 1=truncate option given:truncate long ascii input lines */
49           continue, /* 1=continue option given:continue after nonfatal errors */
50           rout,     /* 1=gcos_mme_rout_ was called in this activity */
51           seeking,  /* 1=gein is looking for a label and/or terminator */
52 
53 /* end of first word */
54 
55           seeking_terminator, /* 1=gein is looking for a terminator */
56           lower_case,         /* 1=lower case print conversion wanted */
57           no_bar,   /* 1=do not run slave program in BAR mode */
58           long,     /* 1=print some lines from execution reort on terminal */
59           endfc,    /* 1=process endfc option on endcopy card */
60           gtssflag, /* 1=update gtss_user_state_ during execution */
61           identflag,          /* 1= use $ident banner info for print & punch */
62           spawnflag,          /* 1= entry due to tss spawn */
63           taskflag  /* 1= entry due to tss drl task */
64                     ) bit(1) unal,
65       2   pad6        bit(27)unal
66 ;
67 
68 /*   END INCLUDE FILE gcos_flags.incl.pl1 */