home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / commodity / cxpak / source.lha / source / CxPak_Include < prev    next >
Text File  |  1995-01-10  |  1KB  |  94 lines
  1.  
  2.     INCLUDE    vd0:include/include.gs
  3.     INCLUDE    vd0:include/commodities.i
  4.     INCLUDE    vd0:include/commodities_lib.i
  5.     INCLUDE    vd0:include/layers_lib.i
  6.     INCLUDE    vd0:include/icon_lib.i
  7.     INCLUDE    vd0:include/workbench.i
  8.  
  9.  
  10. *****
  11. *    definition des expressions et macros du programme.
  12. *****
  13.  
  14. BYTE        EQU    1
  15. WORD        EQU    2
  16. TRUE        EQU    1
  17. FALSE        EQU    0
  18. NULL        EQU    0
  19.  
  20. CX_MAGIC    EQU    51914
  21. CX_FAIRY    EQU    65230
  22.  
  23. CXP_PRIORITY    EQU    21
  24.  
  25. CXP_QUALMASK    EQU    ~(IEQUALIFIER_CAPSLOCK+IEQUALIFIER_INTERRUPT+IEQUALIFIER_MULTIBROADCAST+IEQUALIFIER_RELATIVEMOUSE)
  26.  
  27. MsgType_    EQUR    d7
  28. MsgId_        EQUR    d6
  29. Broker_        EQUR    d5
  30. RetMsg_        EQUR    d4
  31. SigFlg_        EQUR    d3
  32.  
  33.  
  34. EXEC    MACRO
  35.     movea.l    4.w,a6
  36.     jsr    _LVO\1(a6)
  37.     ENDM
  38.  
  39. CX    MACRO
  40.     movea.l    _CxBase(a4),a6
  41.     jsr    _LVO\1(a6)
  42.     ENDM
  43.  
  44. ICON    MACRO
  45.     movea.l    _IconBase(a4),a6
  46.     jsr    _LVO\1(a6)
  47.     ENDM
  48.  
  49. INT    MACRO
  50.     movea.l    _IntuitionBase(a4),a6
  51.     jsr    _LVO\1(a6)
  52.     ENDM
  53.  
  54. DOS    MACRO
  55.     movea.l    _DOSBase(a4),a6
  56.     jsr    _LVO\1(a6)
  57.     ENDM
  58.  
  59. LAYER    MACRO
  60.     movea.l    _LayerBase(a4),a6
  61.     jsr    _LVO\1(a6)
  62.     ENDM
  63.  
  64. * CALL : saut a la routine quand a6 contient deja le pointeur sur la library :
  65.  
  66. CALL    MACRO
  67.     jsr    _LVO\1(a6)
  68.     ENDM
  69.  
  70.  
  71. LAB    MACRO
  72. \1    EQU    *-_DataBase
  73.     ENDM
  74.  
  75. DAT    MACRO
  76. \1    EQU    *-_DataBase
  77.     ENDM
  78.  
  79. CHAR    MACRO
  80. \1    EQU    *-_DataBase
  81.     ENDM
  82.  
  83.  
  84. * _DataBase:        * data header
  85.  
  86. *    lea    _DataBase,a4
  87. *
  88. *    lea    long1(a4),a0        <==>    lea    long1,a0
  89. *    movea.l    long4(a4),a1        <==>    movea.l    long4,a1
  90. *    move.l    #_DataBase+long2,d0    <==>    move.l    #long2,d0
  91. *    move.w    word1(a4),d1        <==>    move.w    word1,d1
  92.  
  93.  
  94.