workbench/devs/AHI/Drivers/Paula/macros.i

   1         IFND MACROS_I
   2 MACROS_I        SET     1
   3
   4 TRUE    equ     1
   5 FALSE   equ     0
   6 NULL    equ     0
   7
   8 call    MACRO
   9         jsr     _LVO\1(a6)
  10         ENDM
  11
  12
  13 skipw   MACRO
  14         IFNE    NARG
  15         FAIL    !!! NO ARGUMENTS ALLOWED !!!
  16         ENDC
  17
  18         dc.w    $0c40                                   ;CMPI.W #????,d0
  19         ENDM
  20
  21 skipl   MACRO
  22         IFNE    NARG
  23         FAIL    !!! NO ARGUMENTS ALLOWED !!!
  24         ENDC
  25
  26         dc.w    $0c80                                   ;CMPI.L #????????,d0
  27         ENDM
  28
  29
  30 base    MACRO
  31         IFC     '\1','exec'
  32                 move.l  4.w,a6
  33         ELSE
  34                 move.l  \1base(pc),a6
  35         ENDC
  36         ENDM
  37
  38 abase   MACRO
  39         IFC     '\1','exec'
  40                 move.l  4.w,a6
  41         ELSE
  42                 move.l  \1base,a6
  43         ENDC
  44         ENDM
  45
  46
  47 push    MACRO
  48         move.l  \1,-(sp)
  49         ENDM
  50
  51 pop     MACRO
  52         move.l  (sp)+,\1
  53         ENDM
  54
  55 pushm   MACRO
  56         IFC     '\1','std'
  57                 movem.l d2-d7/a2-a6,-(sp)
  58         ELSE
  59                 movem.l \1,-(sp)
  60         ENDC
  61         ENDM
  62
  63 popm    MACRO
  64         IFC     '\1','std'
  65                 movem.l (sp)+,d2-d7/a2-a6
  66         ELSE
  67                 movem.l (sp)+,\1
  68         ENDC
  69         ENDM
  70
  71 mpush   MACRO
  72         pushm   \1
  73         ENDM
  74
  75 mpop    MACRO
  76         popm    \1
  77         ENDM
  78
  79
  80 flash   MACRO
  81         push    d0
  82         moveq   #-1,d0
  83 .loop\@
  84         move.l  d0,$dff180
  85         dbf     d0,.loop\@
  86         pop     d0
  87         ENDM
  88
  89 wait    MACRO
  90 .loop\@
  91         btst    #7,$bfe001
  92         bne.b   .loop\@
  93         ENDM
  94
  95         ENDC ; MACROS_I