h16899
s 00052/00000/00000
d D 1.1 83/03/23 16:16:54 bog 1 0
c date and time created 83/03/23 16:16:54 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:  							    #
#		Subroutine EmHome ()					    #
#		    Force ALPHA mode, home gezotz			    #
#									    #
#	Called By:							    #
#		Subroutine EmPage ()					    #
#		    <Esc> <Ff> Clear screen				    #
#									    #
#		Subroutine EmRest ()					    #
#		    Reset Emulator as if just powered up		    #
#									    #
#	Routines Called:						    #
#		Subroutine EmAlfM ()					    #
#		    Force ALPHA mode					    #
#									    #
#############################################################################
 
Subroutine EmHome
 
BEGINCOMMON
COMMON(BEAMSTATE)
COMMON(DRIVER)
ENDCOMMON
 
LCE = FALSE
Bypass = FALSE
Margn2 = FALSE
Mr2Wrp = FALSE
 
MOVE(0,YHome)
 
ExtraX = 0
ExtraY = 0
 
#??? How about HiX,HiY,LoX,LoY??
 
Call EmAlfM
 
Return
End
E 1
