***********************************************************************
*
* teach uglobals.aii -- Version 3.0
*
* Copyright (c)
* Apple Computer, Inc.  1986-1990
* All Rights Reserved.
*
* Developer Technical Support Apple II Sample Code
*
* This file contains the teach program globals and setup.
*
***********************************************************************

	case  on
	longi on
	longa on

	INCLUDE 'm16.memory'
	INCLUDE 'teach.equ'

***********************************************************************

	EXPORT initGlobals
initGlobals	PROC

	pha
	_MMStartUp
	pla
	sta userID

	stz quitFlag
	stz staggerCount
	lda #-1
	sta lastWindow
	sta lastWindow+2

	rts

	EXPORT userID
userID		;       
	DC.W 0

	EXPORT quitFlag
quitFlag		;       
	DC.W 0

	EXPORT staggerCount
staggerCount		;       
	DC.W 0

	EXPORT lastWindow
lastWindow		;       
	DC.L 0

	EXPORT event
event		;       
	DC.W 0	;wmWhat
	DC.L 0	;wmMessage
	DC.L 0	;wmWhen
	DC.L 0	;wmWhere
	DC.W 0	;wmModifiers
	DC.L 0	;wmTaskData
	DC.L $001FFFFF	;wmTaskMask
	DC.L 0	;wmLastClickTick
	DC.W 0	;wmClickCount
	DC.L 0	;wmTaskData2
	DC.L 0	;wmTaskData3
	DC.L 0	;wmTaskData4
	DC.L 0	;wmLastClickPt

	ENDP

	END
