word nxtMCB(word mcb) { DBG_ENTER("nxtMCB", Suppl_mcb) DBG_ARGUMENTS( ("MCB=%u", mcb) ) assert(mcb); DBG_RETURN_BI( peekb(mcb, 0) == 'M' ? MCB2SEG(mcb) + peekw(mcb, MCB_OFF_SIZE) : 0) }
bu(gs): co(mpilers): */ #include "initsupl.loc" #ifndef _MICROC_ #include <dos.h> #endif #include <portable.h> #include "mcb.h" #include "suppldbg.h" #ifdef RCS_Version static char const rcsid[] = "$Id: mcb_env.c,v 1.1 2006/06/17 03:25:05 blairdude Exp $"; #endif static int isEnvcomp(void *arg, word mcb) { return (isPSP(mcb) && mcb_env(mcb) == (unsigned)arg) ? mcb : 0; } int isEnv(const word mcb) { DBG_ENTER("isEnv", Suppl_mcb) DBG_ARGUMENTS( ("mcb=%u", mcb) ) DBG_RETURN_BI( mcb_walk(0, aF(isEnvcomp), (void*)MCB2SEG(mcb))) }
pr(erequistes): va(lue): 0: is no shell \item else: is a shell re(lated to): isMCB isPSP isEnv se(condary subsystems): bu(gs): co(mpilers): */ #include "initsupl.loc" #ifndef _MICROC_ #include <dos.h> #endif #include <portable.h> #include "mcb.h" #include "suppldbg.h" #ifdef RCS_Version static char const rcsid[] = "$Id: mcb_shel.c 1210 2006-06-17 03:25:06Z blairdude $"; #endif int isShell(const word mcb) { DBG_ENTER("isShell", Suppl_mcb) DBG_ARGUMENTS( ("mcb=%u", mcb) ) DBG_RETURN_BI( isPSP(mcb) && peekw(mcb, 0x16 + SEG_OFFSET) == MCB2SEG(mcb)) }