amos-professional/AMOS/Tutorial/Extensions/__uae____wequ_s

*********************************************************************
*		EQUATES GRAPHIC FUNCTIONS AMOS
*********************************************************************
RwReset		MACRO
Count		SET	0
		ENDM
Rl		MACRO	
Count		SET	Count-4*(\2)
T_\1		equ	Count
		ENDM
Rw		MACRO
Count		SET	Count-2*(\2)
T_\1		equ	Count
		ENDM
Rb		MACRO
Count		SET	Count-(\2)
T_\1		equ	Count
		ENDM
GfxPc		MACRO
		movem.l	d0-d7/a0-a6,-(sp)
		move.l	GfxBase(pc),a6
		jsr	\1(a6)
		movem.l	(sp)+,d0-d7/a0-a6
		ENDM

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

		RwReset

***************************************************************
*		VECTEURS
***************************************************************
		Rl	SyVect,1
		Rl	EcVect,1
		Rl	WiVect,1

***************************************************************
*		ADRESSES AMOS / COMPILER
***************************************************************
		Rl	JError,1
		Rl	CompJmp,1
		Rw	AMOState,1
		Rw	Pour_Plus_Tard,1

***************************************************************
*		Gestions AMOS Multiples
***************************************************************
		Rl	MyTask,1
		Rw	Inhibit,1
		Rw	OldDma,1

***************************************************************
*		FENETRES
***************************************************************
* Jeu de caracteres par defaut
		Rl	JeuDefo,1
* Fonction REPETER
WiRepL		equ	80
		Rw	WiRep,1
		Rl	WiRepAd,2
		Rb	WiRepBuf,WiRepL
* Fonction ENCADRER
		Rw	WiEncDX,1
		Rw	WiEncDY,1


***************************************************************
*		INTER VBL
***************************************************************
		Rl	VblCount,1
		Rl	VblTimer,1
		Rw	EveCpt,1

***************************************************************
*		FLAG AMOS/WORKBENCH
***************************************************************
		Rw	AMOSHere,1
		Rw	NoFlip,1
		Rw	DevHere,1
		Rw	DiscIn,1

***************************************************************
*		GESTION ECRANS
***************************************************************

*************** Variables gestion
EcMax:		equ 	12	
		Rw	DefWX,1
		Rw	DefWY,1
		Rw	DefWX2,1
		Rw	DefWY2,1
		Rl	EcCourant,1
		Rw	EcFond,1
		Rw	EcYAct,1
		Rw	EcYMax,1
		Rw	Actualise,1
		Rl	ChipBuf,1

***************	Buffer de calculs des ecrans
		Rw	EcBuf,128

*************** Table des NUMEROS ---> ADRESSES
		Rl	EcAdr,EcMax

*************** Table de priorite
		Rl	EcPri,EcMax+1

*************** FLASHEUR
FlMax:		equ 	16	
LFlash:		equ 	2+2+4+2+16*4+2
		Rw	NbFlash,1
		Rb	TFlash,LFlash*FlMax

*************** SHIFTER
LShift:		equ 	2+2+4+2+2+2
		Rb	TShift,LShift

*************** FADER
		Rw	FadeFlag,1
		Rw	FadeNb,1
		Rw	FadeCpt,1
		Rw	FadeVit,1
		Rl	FadePal,1
		Rl	FadeCop,1
		Rb	FadeCol,8*32

***************************************************************
*		GESTION COPPER
***************************************************************
EcTCop		equ  	1024
		Rl	EcCop,1
		Rw	Cop255,1
		Rl	CopLogic,1
		Rl	CopPhysic,1
		Rw	CopON,1
		Rl	CopPos,1
		Rl	CopLong,1

* Rainbows
NbRain		equ	4
		RsReset
RnDY		rs.w	1
RnFY		rs.w	1
RnTY		rs.w	1
RnBase		rs.w	1
RnColor		rs.w	1
RnLong		rs.w	1
RnBuf		rs.l	1
RnAct		rs.w	1
RnX		rs.w	1
RnY		rs.w	1
RnI		rs.w	1
RainLong	rs.w	1
		Rb	RainTable,RainLong*NbRain
		Rw	RainBow,1
		Rw	OldRain,1

* Marques copper liste
CopL1:		equ 	16*4*2
CopL2:		equ 	16*4
CopML:		equ 	(EcMax*CopL1)+10*CopL2
		Rb	CopMark,CopML+4

* Liste screen swaps
SwapL:		equ 	32
		Rl	SwapList,SwapL*8+4

* Interlaced!
		Rw	InterInter,1
		Rw	InterBit,1
		Rl	InterList,EcMax*2
	
***************************************************************
*		SPRITES HARD
***************************************************************
HsNb		equ 	64
* Limites souris
		Rw	MouYMax,1
		Rw	MouXMax,1
		Rw	MouYMin,1
		Rw	MouXMin,1

* Gestion souris
		Rw	MouYOld,1
		Rw	MouXOld,1
		Rw	MouHotY,1
		Rw	MouHotX,1
		Rw	MouseY,1
		Rw	MouseX,1
		Rw	MouseDY,1
		Rw	MouseDX,1
		Rw	YMouse,1
		Rw	XMouse,1
		Rw	OldMk,1

		Rw	MouShow,1
		Rw	MouSpr,1
		Rw	OMouShow,1
		Rw	OMouSpr,1
		Rl	MouBank,1
		Rl	MouDes,1
		Rw	MouTy,1

		Rl	SprBank,1
		Rl	HsTBuf,1
		Rl	HsBuffer,1
		Rl	HsLogic,1
		Rl	HsPhysic,1
		Rl	HsInter,1
		Rl	HsChange,1
		Rl	HsTable,1
		Rw	HsPMax,1
		Rw	HsTCol,1
		Rw	HsNLine,1
		Rl	HsPosition,2*8+1

* Actualisation sprites
HsYAct:		equ 	4
HsPAct:		equ 	6
		Rw	HsTAct,4*HsNb

* Structure SPrites
HsPrev:		equ 	0
HsNext:		equ 	2
HsX:		equ 	4
HsY:		equ 	6
HsYr:		equ 	8
HsLien:		equ 	10
HsImage:	equ 	12
HsControl:	equ 	16
HsLong:		equ 	20		
		Rb	SpBase,HsLong+4

***************************************************************
*		BOBS
***************************************************************
		Rw	BbMax,1
		Rl	BbDeb,1
		Rl	BbPrio,1
		Rl	BbPrio2,1
		Rl	Priorite,1
		Rw	PriRev,1
*		Rb	TRetour,256

***************************************************************
*		AMAL!
***************************************************************
		Rl	AmDeb,1
		Rl	AmFreeze,1
		Rl	AmChaine,1
		Rl	AmBank,1
		Rw	AmRegs,26
		Rw	SyncOff,1
		Rl	AMALSp,1
		Rw	AmSeed,1

***************************************************************
*		COLLISIONS
***************************************************************
		Rl	TColl,8

***************************************************************
*		BLOCS
***************************************************************
		Rl	AdCBlocs,1
		Rl	AdBlocs,1

***************************************************************
*		SYSTEME
***************************************************************
		Rl	GPile,1
		Rl	IntBase,1
		Rl	IntScreen,1
		Rl	GfxBase,1
		Rl	LayBase,1
		Rl	FntBase,1
		Rl	ScreenAdr,1
		Rl	WindowAdr,1
		Rl	Layer,1
		Rl	BitMap,1
		Rl	RastPort,1
		Rl	ClipRect,1
		Rl	FontInfos,1
		Rw	FontILong,1
		Rw	PaPeek,1
		Rl	SaveZo,1
		Rw	SaveNZo,1
* Sauvegarde du BitMap
		Rb	SBitMap,40
* Sauvegarde de la fonte systeme
		Rb	SFonte,14+4
* Interrupt VBL
Lis		equ	$16
Lio		equ	$30
Lmsg		equ	$20
		Rb	VBL_Is,Lis
* Interrupt clavier
		Rb	IoDevice,Lio+Lmsg+8
		Rb	Interrupt,Lis
* Buffer clavier
ClLong		equ 	32*3
FFkLong		equ 	24
		Rl	ClAsc,1
		Rw	ClFlag,1
		Rw	ClQueue,1
		Rw	ClTete,1
		Rb	ClShift,4
		Rb	ClTable,12
		Rb	ClBuffer,ClLong
		Rl	ClLast,1
		Rb	TFF2,10*FFkLong
		Rb	TFF1,10*FFkLong

*************** Longueur de la structure W.S
		Rb	L_Trp,4
L_Trappe	equ	-Count
***********************************************************