PSMAX
for (psptr=0; psptr<PSMAX; psptr++) {
if (psptr < PSMAX) {
static int plstack[PSMAX]; /* the procedure nesting level stack */
static char pstack[PSMAX][PNAMELEN+1]; /* the procedure name stack */