Amiga Format 42/af042b.adf/Extensions.lha/_wequ.s

Text File | 1992-02-21 | 6KB | 319 lines

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