$DEBUG PAGELENGTH(55)

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

M$EX$NONAME$MESSAGE: DO;

/***********************************************/
/*                                             */
/*  THE MESSAGES AND THE CREATING FILES FOR    */
/*  COMMANDS WITH NO OPERANDS.                 */
/*    (LIB,LIB86,XMT,UPM)                      */
/*                                             */
/***********************************************/
$NOLIST
$INCLUDE(COMMON.DCL)
$INCLUDE(ISIS.DCL)
$INCLUDE(:F1:ISISIO.DCL)
$INCLUDE(STRING.DCL)
$LIST

DECLARE MSG$CONVENTIONS(1) BYTE EXTERNAL;
DECLARE MSG$LIB(*) BYTE DATA(
   LF,
   '   CREATE library file',CR,LF,
   '   ADD object file [(module,...)] [,...] TO library file',CR,LF,
   '   DELETE library file (module,...)',CR,LF,
   '   LIST library file [(module,...)] [,...] [ TO list file ] [ PUBLICS ]',
                                                    CR,LF,
   '   EXIT',CR,LF,
   LF,
   LF,
   0);

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$LIB: 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(6) BYTE
         ) DATA (5,5,'LIB',CR,LF,0);
   DECLARE MSG1(*) BYTE DATA(
      '--- 8080/8085 PROGRAM LIBRARY MANAGER ---',CR,LF,
      LF,
      'COMMANDS ( See "ISIS-II USER''S GUIDE" ) :',CR,LF,
      '------------------------------------------',CR,LF,
      0);

   CALL EX$ZERO(COM$LINE$P,COM$TYPE$P,.COMP);
   CALL MSG$OUT(.MSG1);
   CALL MSG$OUT(.MSG$CONVENTIONS);
   CALL MSG$OUT(.MSG$LIB);
END EX$LIB;

EX$LIB86: 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(12) BYTE
         ) DATA (11,11,'RUN LIB86',CR,LF,0);
   DECLARE MSG1(*) BYTE DATA(
      '--- 8086/8087/8088 PROGRAM LIBRARY MANAGER ---',CR,LF,
      LF,
      'COMMANDS ( See "iAPX86 FAMILY UTILITIES" ) :',CR,LF,
      '--------------------------------------------',CR,LF,
      0);

   CALL EX$ZERO(COM$LINE$P,COM$TYPE$P,.COMP);
   CALL MSG$OUT(.MSG1);
   CALL MSG$OUT(.MSG$CONVENTIONS);
   CALL MSG$OUT(.MSG$LIB);
END EX$LIB86;

EX$XMT: 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(6) BYTE
         ) DATA (5,5,'XMT',CR,LF,0);
   DECLARE MSG1(*) BYTE DATA(
      '--- XMT - TERMINAL SIMULATION AND FILE TRANSFER ---',CR,LF,
      LF,
      'COMMANDS :',CR,LF,
      '----------',CR,LF,
      0);
   DECLARE MSG2(*) BYTE DATA(
      LF,
      '  <CR> &R filename    Open a file for reading and establish a',
                                             ' transfer mode',CR,LF,
      '                       from MDS to external computer',CR,LF,
      '  <CR> &W filename    Open a file for writing and establish a',
                                             ' transfer mode',CR,LF,
      '                       from external computer to MDS',CR,LF,
      '  <CR> &C filename    Close a file',CR,LF,
      '  <CR> &P character   Change default external computer',
                                             ' prompt character (.)',CR,LF,
      '  <CR> &E character   Change default end-of-file character (CNTRL-Z)',
                                                               CR,LF,
      '  <CR> &X             Exit XMT to ISIS-II',CR,LF,
      LF,
      0);

   CALL EX$ZERO(COM$LINE$P,COM$TYPE$P,.COMP);
   CALL MSG$OUT(.MSG1);
   CALL MSG$OUT(.MSG$CONVENTIONS);
   CALL MSG$OUT(.MSG$2);
END EX$XMT;

EX$UPM: 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(6) BYTE
         ) DATA (5,5,'UPM',CR,LF,0);
   DECLARE MSG1(*) BYTE DATA(
      '--- UNIVERAL PROM PROGRAMMER ---',CR,LF,
      LF,
      'COMMANDS :',CR,LF,
      '----------',CR,LF,
      0);
   DECLARE MSG2(*) BYTE DATA(
      LF,
      '  SOCKET=n',CR,LF,
      '       | OBJECT |',CR,LF,
      '  READ | HEX    | FILE file name',
          ' [ INTO offset address ]        ',CR,LF,
      '       | 86HEX  |',CR,LF,
      '  PROGRAM FROM start address TO end address START',
          ' prom start address',CR,LF,
      '  TRANSFER FROM start address TO start address START',
          ' prom address',CR,LF,
      '  DISPLAY FROM start address TO end address',CR,LF,
      '  COMPARE FROM start address TO end address START prom address',CR,LF,
      '  CHANGE FROM start address=value1 [ ,value2,... ]',CR,LF,
      '  STRIP FROM start address TO end address INTO new',
          ' buffer address',CR,LF,
      '  EXIT',CR,LF,
      LF,
      0);

   CALL EX$ZERO(COM$LINE$P,COM$TYPE$P,.COMP);
   CALL MSG$OUT(.MSG1);
   CALL MSG$OUT(.MSG$CONVENTIONS);
   CALL MSG$OUT(.MSG$2);
END EX$UPM;


END M$EX$NONAME$MESSAGE;