h20488
s 00044/00000/00000
d D 1.1 83/03/23 16:19:44 bog 1 0
c date and time created 83/03/23 16:19:44 by bog
e
u
4
U
t
T
I 1
#############################################################################
#									    #
#	This material is confidential and is furnished under		    #
#	a written license agreement.  It may not be used,		    #
#	copied or disclosed to others except in accordance		    #
#	with the terms of that agreement.				    #
#									    #
#	Copyright (C) 1982 Graphic Software Systems, Inc.		    #
#	All rights reserved.						    #
#									    #
#############################################################################
#									    #
#	Function:  							    #
#		INTEGER Function EmPFet (I)				    #
#			Output	I:	INTEGER instruction word at	    #
#					 MenCod(MenuPc).		    #
#				EmPFet:	INTEGER instruction word at	    #
#					 MenCod(MenuPc).		    #
#		    Return as function value and parameter the next code    #
#		    word in the Menu instruction stream.  Side effect	    #
#		    bumps MenuPc.					    #
#									    #
#	Called By:							    #
#									    #
#	Routines Called:						    #
#									    #
#############################################################################
 
INTEGER Function EmPFet(I)
INTEGER I
 
INTEGER EmPGet			# Get INTEGER at param
External EmPGet
 
BEGINCOMMON
COMMON(MENUMACHINE)
ENDCOMMON
 
EmPFet = EmPGet(MenuPc)
MenuPc = MenuPc+2
I = EmPFet
 
Return
End
E 1
