#define POP_N_INIT \
BLOCKADDRESS = (CELL)(*_PREG); \
register CELL d0; \
d0 = (*_PREG)->u.os.s; \
SP = (CELL *) (((char *) SP) + d0); \
d0 = SP[0]; \
if (d0) { \
(*_SREG) = (CELL *) (SP[1]); \
SP += 2; \
(*_PREG) = NEXTOP((*_PREG), s); \
GONext(); \
} \
else { \
GONextW(); \
}
#define POP_N_END \
BLOCK = (CELL)POP_N_END;
#define _pop_instinit \
BEGD(d0); \
(*_PREG) = NEXTOP((*_PREG), e); \
GONEXT(); \
GONEXTW(); \
ENDD(d0);