/* ************************************************************ */
declare     bidirect_1bit   {
    inout       PortA ;
    inout       PortB ;

    input       DIR ;           //  0 : PortB to PortA
                                //  1 : PortA to PortB

    func_in     OEN() ;         //  0 : Hi Impedance status.
                                //  1 : Output PIN drive.
}

module      bidirect_1bit   {

/* ************************************************************ */

    function    OEN {
        any {
            ~DIR    : PortA = PortB ;
            else    : PortB = PortA ;
        }
    }

}