
  PROCEDURE [INLINE] i#disable_traps (VAR old_te: 0 .. 3);
?? PUSH (LISTEXT := ON) ??

{  The purpose of this procedure is determine the current value
{  of the traps enabled flag, disable traps and return the previous
{  value of the flag.
{
{    I#DISABLE_TRAPS (OLD_TE);
{
{  OLD_TE: (output) Value of the traps enabled flag at the time this
{                   procedure was invoked.
{
{  NOTE - This procedure assumes the caller has 'local privilege'.
{

    old_te := #read_register (0c0(16));
    #write_register (0c0(16), 0c0(16));
  PROCEND i#disable_traps;
?? POP ??
