-- file: PackCode.mesa
-- Edited by Lewis, 28-Jan-82 11:02:22
-- Edited by Satterthwaite, December 28, 1982 1:34 pm

DIRECTORY
  Alloc: TYPE USING [Notifier];

PackCode: DEFINITIONS={
  
  PackError: SIGNAL [reason: Problem];
  Problem: TYPE~{
    InvalidCodeOffset,
    SegmentTooBig,
    StrangeJI, StrangeLIO, StrangeCatch,
    NonZeroBase,
    EVNotPlaced};

-- implemented in PackCodeImplA
  ComputeCodePlacement: PROC;
  WriteBcdToFile: PROC;
  WriteCodeToBcdFile: PROC;
  Finalize: PROC;
  
-- in PackCodeImplB
  NotifyB: Alloc.Notifier;
  RemapOldBcd: PROC;

-- implemented in PackagerBcdTabDriver
  InitBcdTab, FinalizeBcdTab: PROC;

  }.