$DEBUG PAGEWIDTH(80) PAGELENGTH(50)

M$MENU$EMULATION: DO;

/***************/
/*             */
/*  EMULATION  */
/*             */
/***************/

$NOLIST
$INCLUDE(COMMON.DCL)
$LIST

/**** TREE NODE TYPE DECLARATION ****/

DECLARE NODE LITERALLY 'STRUCTURE(
      MSG$P ADDRESS,
      PARENT$P ADDRESS,
      N$SONS BYTE,
      SONS$TYPE(8) BYTE,
      SONS$P(8) ADDRESS
   )';

/**** EXTERNAL EXEC PROCEDURES ****/

EX$ICE85: PROCEDURE EXTERNAL;
END;

EX$ICE86: PROCEDURE EXTERNAL;
END;

EX$SM2920: PROCEDURE EXTERNAL;
END;

/**** EXTERNAL TREE NODES ****/

DECLARE (
   MENU$TREE$ROOT
   ) NODE EXTERNAL;

/**** MESSAGE ****/

DECLARE MSG$EMULATION(*) BYTE DATA(
   'EMULATION / SIMULATION - PROCESSOR TYPES :',CR,LF,
   LF,
   '1. 8085',
   CR,LF,
   '2. 8086',
   CR,LF,
   '3. 2920',
   CR,LF,
   
   CR,LF,
   LF,
   0);

/**** TREE NODE ****/

DECLARE MENU$TREE$EMULATION NODE PUBLIC DATA(
         .MSG$EMULATION,
         .MENU$TREE$ROOT,
         3,
         1,1,1,1,1,1,1,1,
         .EX$ICE85,
         .EX$ICE86,
         .EX$SM2920,
         0,
         0,
         0,
         0,
         0
      ) ;



END M$MENU$EMULATION;