/******************************************************************************

	DbgSLv()

	This function sets DbgLvl,  which controls how much debugging
information is displayed as TECO executes.  If DbgLvl is 0,  no debugging
messages are displayed.  If (DbgLvl>=1),  then messages are displayed by
all "Exexxx" functions.  This means that a message is displayed for each
entry and exit of execution of a single command.  If (DbgLvl>=1) then in
addition to the messages displayed for entry and exit of Exexxx functions,
a message is displayed for the "next level down" functions.  This scheme
is continued for DbgLvl >= 3, DbgLvl >= 4, etc.
	In most cases,  setting DbgLvl to 1 and then executing a TECO
command string will reveal an error.  For more detail, DbgLvl can be set
to successively higher values.  Using DbgLvl,  you can trade-off the amount
of time you wait for the messages to go by on the screen with the amount
of deatil that's needed.
	By using this system,  debug messages that are placed into new code
in order to debug it can be left in the code so they're useful later.

*****************************************************************************/

#include "ZPort.h"		/* define portability identifiers */
#include "DefTeco.h"		/* define general identifiers */

EXTERN	LONG	MArgmt;		/* m part of m,n argument pair */


VOID DbgSLv()			/* set debugging level */
{
	DbgLvl = (DEFAULT)MArgmt;
}