$DEBUG PAGELENGTH(55)

/**********************/
/*                    */
/*  E X $ L T 8 6     */
/*                    */
/**********************/

M$EX$LT86: DO;

/**************************************************/
/*                                                */
/* THE MESSAGES AND THE CREATING FILES FOR THE    */
/*   8086 LANGUAGE COMMANDS.                      */
/*    (ASM86,PLM86,Pascal86,FORTRAN86)            */
/*                                                */
/**************************************************/

$NOLIST
$INCLUDE(COMMON.DCL)
$INCLUDE(ISIS.DCL)
$INCLUDE(:F1:ISISIO.DCL)
$INCLUDE(STRING.DCL)
$LIST

GET$FNAME: PROCEDURE(NAME$P,TYPE,WILDCARD,NULLNAME,EXTPNT) EXTERNAL;
   DECLARE
       NAME$P ADDRESS,
       TYPE BYTE,
       WILDCARD BOOLEAN,
       NULLNAME BOOLEAN,
       EXTPNT BOOLEAN;
END GET$FNAME;

EX$ONE: PROCEDURE (COM$LINE$P,COM$TYPE$P,COMP1$P,MSG1$P) EXTERNAL;
   DECLARE
      COM$LINE$P ADDRESS,
      COM$TYPE$P ADDRESS,
      COMP1$P ADDRESS,
      MSG1$P ADDRESS;
END EX$ONE;

EX$ASM86: PROCEDURE (COM$LINE$P,COM$TYPE$P) PUBLIC;
   DECLARE
      COM$LINE$P ADDRESS,
      COM$TYPE$P ADDRESS;
   DECLARE
      COMP1 STRUCTURE(
         ML ADDRESS,
         L ADDRESS,
         D(11) BYTE
         ) DATA (10,10,'RUN ASM86 ',0);
   DECLARE MSG1(*) BYTE DATA(
      LF,
      '  --- 8086/8087/8088 ASSEMBLER ---',CR,LF,
      '            SOURCE FILE',CR,LF,
      '           ..............',
      0);

   CALL EX$ONE(COM$LINE$P,COM$TYPE$P,.COMP1,.MSG1);

END EX$ASM86;

EX$PLM86: PROCEDURE (COM$LINE$P,COM$TYPE$P) PUBLIC;
   DECLARE
      COM$LINE$P ADDRESS,
      COM$TYPE$P ADDRESS;
   DECLARE
      COMP1 STRUCTURE(
         ML ADDRESS,
         L ADDRESS,
         D(11) BYTE
         ) DATA (10,10,'RUN PLM86 ',0);
   DECLARE MSG1(*) BYTE DATA(
      LF,
      '  --- 8086/8087/8088 PLM COMPILER ---',CR,LF,
      '             SOURCE FILE',CR,LF,
      '           ..............',
      0);

   CALL EX$ONE(COM$LINE$P,COM$TYPE$P,.COMP1,.MSG1);

END EX$PLM86;

EX$PASC86: PROCEDURE (COM$LINE$P,COM$TYPE$P) PUBLIC;
   DECLARE
      COM$LINE$P ADDRESS,
      COM$TYPE$P ADDRESS;
   DECLARE
      COMP1 STRUCTURE(
         ML ADDRESS,
         L ADDRESS,
         D(12) BYTE
         ) DATA (11,11,'RUN PASC86 ',0);
   DECLARE MSG1(*) BYTE DATA(
      LF,
      '  --- 8086/8087/8088 Pascal COMPILER ---',CR,LF,
      '              SOURCE FILE',CR,LF,
      '            ..............',
      0);

   CALL EX$ONE(COM$LINE$P,COM$TYPE$P,.COMP1,.MSG1);

END EX$PASC86;

EX$FORT86: PROCEDURE (COM$LINE$P,COM$TYPE$P) PUBLIC;
   DECLARE
      COM$LINE$P ADDRESS,
      COM$TYPE$P ADDRESS;
   DECLARE
      COMP1 STRUCTURE(
         ML ADDRESS,
         L ADDRESS,
         D(12) BYTE
         ) DATA (11,11,'RUN FORT86 ',0);
   DECLARE MSG1(*) BYTE DATA(
      LF,
      '  --- 8086/8087/8088 FORTRAN COMPILER ---',CR,LF,
      '              SOURCE FILE',CR,LF,
      '            ..............',
      0);
 
   CALL EX$ONE(COM$LINE$P,COM$TYPE$P,.COMP1,.MSG1);

END EX$FORT86;

END M$EX$LT86;