module HaCeSOFT
Title 'blikac'

Declarations

clk pin 5;                // GCK1 on XC9536 CPLD
q0 pin 38 istype 'reg';   // LED
q1 pin 37 istype 'reg';   // LED
q2 pin 36 istype 'reg';   // LED
q3 pin 35 istype 'reg';   // LED
q4 pin 34 istype 'reg';   // LED
q5 pin 33 istype 'reg';   // LED
q6 pin 29 istype 'reg';   // LED
q7 pin 28 istype 'reg';   // LED

q = [q7..q0];              // LED Bus Declaration

//Nodes
A        node istype 'com';
B        node istype 'com';
C        node istype 'com';

D        node istype 'com';
E        node istype 'com';
F        node istype 'com';

Invert1  node istype 'com';
Invert2  node istype 'com';
Invert3  node istype 'com';

KlopnyD1 node istype 'reg';
KlopnyD2 node istype 'reg';
KlopnyD3 node istype 'reg';

Equations

q7 = (!A # !B # !C);

q6 = (!A # !B # !D);

q5 = (!E # !B # !C);

q4 = (!E # !B # !D);

q3 = (!A # !F # !C);

q2 = (!A # !F # !D);

q1 = (!E # !F # !C);

q0 = (!E # !F # !D);

KlopnyD1.D   = (Invert1);

KlopnyD1.clk = (KlopnyD3);

KlopnyD2.D   = (Invert2);

KlopnyD2.clk = (KlopnyD1);

KlopnyD3.D   = (Invert3);

KlopnyD3.clk = (clk);

Invert2      = (!KlopnyD2);

Invert1      = (!KlopnyD1);

Invert3      = (!KlopnyD3);

C = (!D);

A = (!E);

B = (!F);

F = (!KlopnyD2);

E = (!KlopnyD1);

D = (!KlopnyD3);

end HaCeSOFT