(****************************************
*                                       *
*     MODULA-2 Multi-Pass Compiler      *
*     ****************************      *
*                                       *
*       VAX/VMS Implementation          *
*                                       *
*                                       *
*     MVCLs4:                           *
*                                       *
*     Listing generation in Pass4       *
*                                       * 
*                                       *
*     Version 3.1 of  1-FEB-1983        *
*                                       *
*                                       *
*                                       *
*     Based on PDP11 Implementation     *
*     Version M22 of 22.01.81           *
*                                       *
*     Institut fuer Informatik          *
*     ETH-Zentrum                       *
*     CH-8092 Zuerich                   *
*                                       *
****************************************)

(****************************************
* Updates: see implementation module    *
****************************************)

DEFINITION MODULE MVCLs4; (* VAX:   M. Mall                     *)

  FROM SYSTEM IMPORT BYTE;
  FROM MVCompiler IMPORT Idptr;

  EXPORT QUALIFIED WriteHeader, WriteObjectCode, WriteTrailer;

  PROCEDURE WriteHeader;

  PROCEDURE WriteObjectCode (VAR fctab: ARRAY OF BYTE;
                                 flc: CARDINAL;
                                 fpfmp: Idptr);

  PROCEDURE WriteTrailer;

END MVCLs4.