
		
		
		
		  case IPOP:
		    PM = *SP--;
		    D = (int *) *SP--;
		    if (PM) goto MatchMode; else goto CopyMode;


		  case POPARG:
		    SP--;
		    D = (int *) *SP--;
		    goto CopyMode;


		  case ISADD:
		    --SP;
		    *SP += *(SP+1);
		    goto CopyMode;


		  case ISSUB:
		    --SP;
		    *SP -= *(SP+1);
		    goto CopyMode;


		  case VOID:
		    *D = makeword(UNDEF,(int) D);
		    ++D;
		    goto CopyMode;


		  case IFUNCTOR:
		    *D++ = makeword(TERM,(int)G);
		    *G++ = *(XC + CLAUSELEN + *PC++);
		    *++SP = (int) D;
		    *++SP = 0;
		    D = G;
		    G += *PC++;
		    checkglobal(10);
		    goto CopyMode;
		

