$DEBUG PAGEWIDTH(80) PAGELENGTH(50)

M$MENU$8086$OBJECT: DO;

/*****************/
/*               */
/*  8086 OBJECT  */
/*               */
/*****************/

$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$LINK86: PROCEDURE EXTERNAL;
END;

EX$LOC86: PROCEDURE EXTERNAL;
END;

EX$LIB86: PROCEDURE EXTERNAL;
END;

EX$OH86: PROCEDURE EXTERNAL;
END;

EX$UPM: PROCEDURE EXTERNAL;
END;


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

DECLARE (
   MENU$TREE$OBJECT$FILE$HANDLING
   ) NODE EXTERNAL;

/**** MESSAGE ****/

DECLARE MSG$8086$OBJECT(*) BYTE DATA(
   '8086 / 8087 / 8088 OBJECT FILE HANDLING :',CR,LF,
   LF,
   '1. Link object files                    ',
   '4. Convert an object file to hex',CR,LF,
   '2. Locate an object file                ',
   '5. Program an eprom',CR,LF,
   '3. Library management                   ',
   CR,LF,
   
   CR,LF,
   LF,
   0);

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

DECLARE MENU$TREE$8086$OBJECT NODE PUBLIC DATA(
         .MSG$8086$OBJECT,
         .MENU$TREE$OBJECT$FILE$HANDLING,
         5,
         1,1,1,1,1,1,1,1,
         .EX$LINK86,
         .EX$LOC86,
         .EX$LIB86,
         .EX$OH86,
         .EX$UPM,
         0,
         0,
         0
      ) ;



END M$MENU$8086$OBJECT;