$DEBUG PAGEWIDTH(80) PAGELENGTH(50)

M$MENU$OBJECT$FILE$HANDLING: DO;

/**************************/
/*                        */
/*  OBJECT FILE HANDLING  */
/*                        */
/**************************/

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

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

DECLARE (
   MENU$TREE$ROOT,
   MENU$TREE$8085$OBJECT,
   MENU$TREE$8086$OBJECT,
   MENU$TREE$HEX$OBJECT
   ) NODE EXTERNAL;

/**** MESSAGE ****/

DECLARE MSG$OBJECT$FILE$HANDLING(*) BYTE DATA(
   'OBJECT FILE HANDLING - PROCESSOR TYPES :',CR,LF,
   LF,
   '1. 8080 / 8085',
   CR,LF,
   '2. 8086 / 8087 / 8088',
   CR,LF,
   '3. 2920 ( eprom programming only )',
   CR,LF,
   '4. Hex - Object file handling',
   CR,LF,
   LF,
   0);

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

DECLARE MENU$TREE$OBJECT$FILE$HANDLING NODE PUBLIC DATA(
         .MSG$OBJECT$FILE$HANDLING,
         .MENU$TREE$ROOT,
         4,
         0,0,1,0,1,1,1,1,
         .MENU$TREE$8085$OBJECT,
         .MENU$TREE$8086$OBJECT,
         .EX$UPM,
         .MENU$TREE$HEX$OBJECT,
         0,
         0,
         0,
         0
      ) ;



END M$MENU$OBJECT$FILE$HANDLING;