EmulatorTst.bcd created 12-Oct-83  9:52:15 PDT  on 0#252#
    creator 13-Sep-83 17:10:14 PDT  on 0#0#
    source 12-Oct-83  9:51:44 PDT  on 0#0#


Cross Jumped
Global frame size:  7

Entry Vector:  evi [bytePC]
  0 [10]
  1 [12]
  2 [23]

Catch Entry Vector:  cevi [bytePC]
  None

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

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

DIRECTORY
  EmulatorTest;

   Entry point: 0,   Frame size index:  0

EmulatorTestHelper: PROGRAM
  EXPORTS EmulatorTest = PUBLIC

  BEGIN
 
  varOne: CARDINAL; 
  varOneTwo: LONG CARDINAL;
   
  


	   11:	RET


Instructions: 1, Bytes: 2

  InitHelper: PROCEDURE = {
    
   Entry point: 1,   Frame size index:  0

    varOne ← 1;
    
	   13:	LI1
	   14:	SGB	     0

    varOneTwo ← 200000B + 2};
  
  
	   16:	LI2
	   17:	LI1
	   20:	SGDB	     1
	   22:	RET


Instructions: 6, Bytes: 8

  Proc: PROCEDURE RETURNS [PROC] = {
   Entry point: 2,   Frame size index:  0

                                    RETURN[InitHelper]};
  
  
  
  END.


	   24:	GA1
	   25:	LIW	    12
	   30:	RET


Instructions: 3, Bytes: 6


Total instructions: 10, Bytes: 16