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

{  This procedure reads the current value of the traps enabled
{  register, enables traps and returns the previous value of the
{  traps enabled register.
{
{    I#ENABLE_TRAPS (OLD_TE);
{
{  OLD_TE: (output) Value of the traps enabled flag at the time the
{                   procedure was invoked.
{
{  NOTE - This procedure assumes that the caller has 'local provilege' mode.
{

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