setb c              ;function entry
        jbc EA,DisInt
        clr c
DisInt: push PSW            ;Carry holds the EA state
        .
        .
        ;Critical Section
        .
        .
        pop PSW