-- ROMMakerControl.mesa
-- a program to run within Chipmonk

-- last modified by E. McCreight, November 20, 1981  11:25 AM
-- written by E. McCreight, August 7, 1981  3:52 PM

DIRECTORY
  ChipUserInt,
  ppddefs,
  ppdefs,
  RomMakerDefs,
  ZoneAllocDefs;

RomMakerControl: PROGRAM
  IMPORTS ChipUserInt, RomMakerDefs, ZoneAllocDefs
  EXPORTS RomMakerDefs =
  BEGIN OPEN ChipUserInt, ppddefs, ppdefs, RomMakerDefs;


  uz: PUBLIC UNCOUNTED ZONE ←
    ZoneAllocDefs.GetAnXMZone[];


  -- M a i n   P r o g r a m

  lpp ← NIL;  -- list of cells already placed

  BEGIN
  ENABLE Punt => GOTO Exit;  -- for exits

  SELECT TRUE FROM
    HeSaysYes["Make Rom from .MB file?"] =>
      BuildRom[];

    HeSaysYes["Make a decoder?"] =>
      BuildDecoder[];

    ENDCASE => Explain["That's all the options!"L];

  EXITS Exit => NULL;
  END;

  -- give back all the storage we allocated

  uz ← ZoneAllocDefs.DestroyAnXMZone[uz];

  END. -- of RomMakerControl