MODULE CNT8

"Constants
        C,P,X = .c.,.p.,.x.;

"Inputs
        CLK pin;

"Output
	Q7,Q6,Q5,Q4,Q3,Q2,Q1,Q0 pin istype 'reg_D';

Q = [Q7..Q0];

Equations

Q[7..0].CLK = CLK;

Q:=Q.fb+1;

END 

MODULE rege8


"Constants
        C,P,X = .c.,.p.,.x.;

"Inputs
        CLK,EN,D7,D6,D5,D4,D3,D2,D1,D0 pin;

"Output
	Q7,Q6,Q5,Q4,Q3,Q2,Q1,Q0 pin istype 'reg_D';

Q = [Q7..Q0];
D = [D7..D0];


Equations
Q.clk=CLK;

Q:=(EN & D) # (!EN & Q.fb);
END

MODULE komp8

"Constants
        C,P,X = .c.,.p.,.x.;

"Inputs
        A7,A6,A5,A4,A3,A2,A1,A0,B7,B6,B5,B4,B3,B2,B1,B0 pin;

"Output
	GT pin istype 'com';

A = [A7..A0];
B = [B7..B0];

Equations

GT = B>A;

END