ifnd EXEC_ABLES_I
EXEC_ABLES_I set 1

    ifnd    EXEC_EXECBASE_I
    include "asm:include/exec/execbase.i"
    endif

    ifnd    EXEC_OFFSETS_I
    include "asm:include/offsets/exec.Offsets"
    endif

DISABLE macro   \1
        ifnd    \1
        move.w  #$4000,_intena
        addq.b  #1,IDNestCnt(a6)
        endif
        ifd     \1
        move.l  4,\1
        move.w  #$4000,_intena
        addq.b  #1,IDNestCnt(\1)
        endif
        endm


ENABLE  macro   \1
        ifnd    \1
        subq.b  #1,IDNestCnt(a6)
        bge.s   1$
        move.w  #$C000,_intena
        endif
        ifd     \1
        move.l  4,\1
        subq,b  #1,IDNestCnt(\1)
        bge.s   1$
        move.w  #$C000,_intena
        endif
1$:
        endm

FORBID  macro  \1
        ifnd   \1
        addq.b #1,TDNestCnt(a6)
        endif
        ifd     \1
        move.l 4,\1
        addq.b #1,TDNestCnt(\1)
        endif
        endm


PERMIT  macro   \1
        ifnd    \1
        jsr     Permit(a6)
        endif
        ifd     \1
        move.l  a6,-(sp)
        movea.l 4,a6
        jsr     Permit(a6)
        movea.l (sp)+,a6
        endif
        endm

    endif