$DEBUG PAGELENGTH(55)

/*******************/
/*                 */
/*  E X $ 2 9 2 0  */
/*                 */
/*******************/

M$EX$2920: DO;

/****************************************************/
/*                                                  */
/*  2920 SOFTWARE - ASSEMBLER, COMPILER , AND       */
/*                   SIMULATOR                      */
/*                                                  */
/*                                                  */
/*  LAST UPDATED - 23.5.82  DROR                    */
/*                                                  */
/****************************************************/

$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$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$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$AS2920: 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(8) BYTE
         ) DATA (7,7,'AS2920 ',0);
   DECLARE MSG1(*) BYTE DATA(
      LF,
      '  --- 2920 ASSEMBLER ---',CR,LF,
      '       SOURCE FILE',CR,LF,
      '      ..............',
      0);

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

EX$SM2920: 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(13) BYTE
         ) DATA (12,12,'SM2920.SFT',CR,LF,0);

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

EX$SPAS20: 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(13) BYTE
         ) DATA (12,12,':F1:SPAS20',CR,LF,0);

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


END M$EX$2920;