$DEBUG PAGELENGTH(55)

/**********************/
/*                    */
/*  E X $ N O N A M E */
/*                    */
/**********************/

M$EX$NONAME: DO;

/**************************************************/
/*                                                */
/* THE MESSAGES AND THE CREATING FILES FOR THOSE  */
/*   COMMANDS WITH NO OPERANDS.                   */
/*   (ICE85,ICE86,NOVA,BAUD)                      */
/*                                                */
/**************************************************/
$NOLIST
$INCLUDE(COMMON.DCL)
$INCLUDE(ISIS.DCL)
$INCLUDE(:F1:ISISIO.DCL)
$INCLUDE(STRING.DCL)
$LIST

EX$ZERO: PROCEDURE (COM$LINE$P,COM$TYPE$P,COMP$P) EXTERNAL;
   DECLARE
      COM$LINE$P ADDRESS,
      COM$TYPE$P ADDRESS,
      COMP$P ADDRESS;
END EX$ZERO;

EX$ICE86: PROCEDURE (COM$LINE$P,COM$TYPE$P) PUBLIC;
   DECLARE
      COM$LINE$P ADDRESS,
      COM$TYPE$P ADDRESS;
   DECLARE
      COMP STRUCTURE(
         ML ADDRESS,
         L ADDRESS,
         D(17) BYTE
         ) DATA (16,16,'ICE86 WF(:F1:)',CR,LF,0);

CALL EX$ZERO(COM$LINE$P,COM$TYPE$P,.COMP);

END EX$ICE86;

EX$ICE85: PROCEDURE (COM$LINE$P,COM$TYPE$P) PUBLIC;
   DECLARE
      COM$LINE$P ADDRESS,
      COM$TYPE$P ADDRESS;
   DECLARE
      COMP STRUCTURE(
         ML ADDRESS,
         L ADDRESS,
         D(8) BYTE
         ) DATA (7,7,'ICE85',CR,LF,0);

CALL EX$ZERO(COM$LINE$P,COM$TYPE$P,.COMP);

END EX$ICE85;

EX$NOVA: PROCEDURE (COM$LINE$P,COM$TYPE$P) PUBLIC;
   DECLARE
      COM$LINE$P ADDRESS,
      COM$TYPE$P ADDRESS;
   DECLARE
      COMP STRUCTURE(
         ML ADDRESS,
         L ADDRESS,
         D(7) BYTE
         ) DATA (6,6,'NOVA',CR,LF,0);

CALL EX$ZERO(COM$LINE$P,COM$TYPE$P,.COMP);

END EX$NOVA;

EX$BAUD: PROCEDURE (COM$LINE$P,COM$TYPE$P) PUBLIC;
   DECLARE
      COM$LINE$P ADDRESS,
      COM$TYPE$P ADDRESS;
   DECLARE
      COMP STRUCTURE(
         ML ADDRESS,
         L ADDRESS,
         D(7) BYTE
         ) DATA (6,6,'BAUD',CR,LF,0);

CALL EX$ZERO(COM$LINE$P,COM$TYPE$P,.COMP);

END EX$BAUD;

END M$EX$NONAME;