home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 562.lha / TD_v2.0 / Includes / P.i < prev    next >
Encoding:
Text File  |  1991-09-20  |  1.1 KB  |  59 lines
  1. *»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
  2. *»» Made for Hisoft Devpac 2.12 by Preben Nielsen
  3. *»»
  4. *»» 09-Aug-91: Made this header
  5. *»»
  6. *»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
  7. *»» A few macros to make code a little more readable
  8. *»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
  9. W    IFND    P_DEFINES
  10. P_DEFINES    SET    1
  11.  
  12. Prepare        MACRO
  13.         IFC        '\1','Exec_Call'
  14.         movea.l        4.W,A6
  15.         ENDC
  16.         IFC        '\1','Intuition_Call'
  17.         movea.l        IntuiBase(DB),A6
  18.         ENDC
  19.         IFC        '\1','Gfx_Call'
  20.         movea.l        GraphBase(DB),A6
  21.         ENDC
  22.         IFC        '\1','Dos_Call'
  23.         movea.l        DosBase(DB),A6
  24.         ENDC
  25.         IFNC        '\1','Exec_Call'
  26.         IFNC        '\1','Intuition_Call'
  27.         IFNC        '\1','Gfx_Call'
  28.         IFNC        '\1','Dos_Call'
  29.         moveq        #12345,D0
  30.         ENDC
  31.         ENDC
  32.         ENDC
  33.         ENDC
  34.         ENDM
  35. CallLib        MACRO
  36.         jsr        _LVO\1(A6)
  37.         ENDM
  38. Call        MACRO
  39.         bsr        \1
  40.         ENDM
  41. Push        Macro        Push <reg-list | all>
  42.         IFC        '\1','all'
  43.         movem.l        D0-D7/A0-A6,-(SP)
  44.         ENDC
  45.         IFNC        '\1','all'
  46.         movem.l        \1,-(SP)
  47.         ENDC
  48.         ENDM
  49. Pop        Macro        Pop <reg-list | all>
  50.         IFC        '\1','all'
  51.         movem.l        (SP)+,D0-D7/A0-A6
  52.         ENDC
  53.         IFNC        '\1','all'
  54.         movem.l        (SP)+,\1
  55.         ENDC
  56.         ENDM
  57.     ENDC
  58.  
  59.