/*
		i = 1;
		while(i <= arity){
			b = SS[fp+i];
			SS[fp+i] = M[i]; // save reg
			M[i] = b;		 // pass param
//			printf("%d ",b);
			i++;
		}
//		nl();
		while(i <= nlocal){
			SS[fp+i] = M[i]; // save reg
			i++;
		}
		SS[fp+i] = ip+3;	 // ret ads
		fp += nlocal+1;
		ip = a + 3;
//		sp = fp;
*/