; GFXMACORS by E.Hambuch
CWAIT: macro      ;CWAIT UCopList,y,x
  movea.l \1,a1
  move.w \2,d0
  move.w \3,d1
  jsr _LVOCWait(a6)
  movea.l \1,a1
  jsr _LVOCBump(a6)
  endm
CMOVE: macro     ;CMOVE uCopList,ColReg,0RGB
  movea.l \1,a1
  move.w \2,d0
  move.w \3,d1
  jsr _LVOCMove(a6)
  movea.l \1,a1
  jsr _LVOCBump(a6)
  endm
CEND: macro         ;CEND UCopList
  movea.l \1,a1
  move.w #10000,d0
  move.w d0,d1
  jsr _LVOCWait(a6)
  movea.l \1,a1
  jsr _LVOCBump(a6)
  endm
DISPLAY_OFF: macro
  move.w #%0000000100000000,$dff096
  endm
DISPLAY_ON: macro
  move.w #%1000001100000000,$dff096
  endm
COPPER_OFF: macro
  move.w #%0000000010000000,$dff096
  endm
COPPER_ON:  macro
  move.w #%1000001010000000,$dff096
  endm
SPRITES_OFF: macro
  move.w #%0000000000100000,$dff096
  endm
SPRITES_ON: macro
  move.w #%0000001000100000,$dff096
  endm
CopMove: macro   ;CopMove $fff,$180
  dc.w \2,\1
  endm
CopWait: macro   ;CopWait x,y
  dc.w \2*$100+\1|$1,-2
  endm
CopSkip: macro   ;CopSkip x,y
  dc.w \2*$100+\1|$1,-1
  endm
CopEnd: macro ;CopEnd
  dc.w $ffff,-2
  endm
CopJump: macro ;CopJump Label,$84
  dc.l (\1/$10000)+(\2*$10000)
  dc.l (\1&$ffff) +((\2+2)*$10000)
  endm