- if (!remote) /* create main process */
- {
- father.node = 0; /* dummy DL for generated process */
- father.pix = 0;
- father.mark = 0;
- thispix = 0; /* current process index */
- thisp = &process[ thispix ]; /* current process descr pointer */
- initprocess((word) 0, (word) MAINBLOCK, &father);
- mainprog = thisp->prochead; /* am of main */
- c1 = thisp->c1; /* pointers to current object */
- c2 = thisp->c2;
- ic = thisp->ic; /* instruction counter */
- param = thisp->param; /* parameter vector */
- apt = mainprog+M[ mainprog ]; /* LWA+1 of main */
- display = apt+dispoff; /* DISPLAY in main */
- display2 = apt+disp2off; /* indirect DISPLAY in main */
- mnoff = 2; /* offset of variable mainprog */
- storevirt(thisp->procref, mainprog+mnoff); /* init variable main */
- M[ apt+STATSL ]++; /* flag main included in SL chain */
- thisp->status = STOPPED;
- activate(thispix); /* activate main process */
- }
- else /* remote */
- {
- thispix = 0; /* a dirty trick: set junk current
-*/
- thisp = &process[ thispix ];/* process for first
-transfer() */
- } /* (must save 'context' somewhere) */
+ /* create main process */
+ if (!remote) {
+ /* dummy DL for generated process */
+ father.node = 0;
+ father.pix = 0;
+ father.mark = 0;
+ /* current process index */
+ thispix = 0;
+ /* current process descr pointer */
+ thisp = &process[thispix];
+ initprocess((word) 0, (word) MAINBLOCK, &father);
+ /* am of main */
+ mainprog = thisp->prochead;
+ /* pointers to current object */
+ c1 = thisp->c1;
+ c2 = thisp->c2;
+ /* instruction counter */
+ ic = thisp->ic;
+ /* parameter vector */
+ param = thisp->param;
+ /* LWA+1 of main */
+ apt = mainprog + M[mainprog];
+ /* DISPLAY in main */
+ display = apt + dispoff;
+ /* indirect DISPLAY in main */
+ display2 = apt + disp2off;
+ /* offset of variable mainprog */
+ mnoff = 2;
+ /* init variable main */
+ storevirt(thisp->procref, mainprog + mnoff);
+ /* flag main included in SL chain */
+ M[apt + STATSL]++;
+ thisp->status = STOPPED;
+ /* activate main process */
+ activate(thispix);
+ }
+ /* remote */
+ else {
+ /* a dirty trick: set junk current */
+ thispix = 0;
+ /* process for first transfer() */
+ thisp = &process[thispix];
+ /* (must save 'context' somewhere) */
+ }