222.abl

来自「abel语言的相当优秀实例多媒体教程！这个在网上很少见的。」· ABL 代码 · 共 25 行

MODULE clk1

TITLE 'for example'
clk1 device 'P16V8R';
CLK PIN 1;
Q3 PIN 16 istype'reg';
Q0,Q1,Q2 PIN ;
H,L =1,0;
P=[Q0..Q3];
EQUATIONS

P.CLK=CLK;

Q0:=Q0+1;
Q1:=Q1+Q0+1;
Q2:=Q2+Q1+1;
Q3:=Q3+Q2+1;

TEST_VECTORS
([CLK]->[Q0,Q1,Q2,Q3])
[.C.]->[H,H,H,H];
[.C.]->[L,L,L,L];
[.C.]->[H,H,H,H];
[.C.]->[L,L,L,L];
END