********************************************************************* * 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 ***********************************************************