Subversion Repositories or1k_old

// $Header: /home/marcus/revision_ctrl_test/oc_cvs/cvs/or1k/mp3/lib/xilinx/unisims/LDCP.v,v 1.1.1.1 2001-11-04 18:59:48 lampret Exp $
 
/*
 
FUNCTION	: D-LATCH with async clear, async preset
 
*/
 
`timescale  100 ps / 10 ps
 
`celldefine
 
module LDCP (Q, CLR, D, G, PRE);
 
    parameter cds_action = "ignore";
    parameter INIT = 1'b0;
 
    output Q;
    reg    q_out;
 
    input  CLR, D, G, PRE;
 
    tri0 GSR = glbl.GSR;
 
    buf B1 (Q, q_out);
 
	always @(GSR or CLR or PRE or D or G)
	    if (GSR)
		q_out <= INIT;
	    else if (CLR)
		q_out <= 0;
	    else if (PRE)
		q_out <= 1;
	    else if (G)
		q_out <= D;
 
    specify
	if (!CLR && !PRE && G)
	    (D +=> Q) = (1, 1);
	if (!CLR && !PRE)
	    (posedge G => (Q +: D)) = (1, 1);
	if (!CLR)
	    (posedge PRE => (Q +: 1'b1)) = (1, 1);
	(posedge CLR => (Q +: 1'b0)) = (1, 1);
    endspecify
 
endmodule
 
`endcelldefine