COMMON	/PSHPOP/ PSTACK, STKIDX, STKMAX
	INTEGER		 PSTACK(100), STKIDX, STKMAX