-- EmulatorTestHelper.mesa     3-Dec-81 15:59:14 by JGS

-- Test program to exercise the the Mesa emulator of a PrincOps machine.

DIRECTORY
  EmulatorTest;

EmulatorTestHelper: PROGRAM
  EXPORTS EmulatorTest = PUBLIC

  BEGIN
 
  varOne: CARDINAL; 
  varOneTwo: LONG CARDINAL;
   
  InitHelper: PROCEDURE = {
    varOne ← 1;
    varOneTwo ← 200000B + 2};
  
  Proc: PROCEDURE RETURNS [PROC] = {RETURN[InitHelper]};
  
  
  
  END.