fenpin.abl

abel语言的相当优秀实例多媒体教程！这个在网上很少见的。

module fenpin
title'fenpin'
fenpin device 'p16v8r';
CLK ,OE PIN 1,11;
f,R,S0,S1,S2,S3 PIN 2,4,6,7,8,9 istype'com';
MC,Q1,Q3,Q5,Q7 PIN 19,18,17,16,15 istype'reg';
Q9,Q11,Q13 PIN 14,13,12 istype'reg' ;
H,L,X,Z=1,0,.X.,.Z.;
C,P=.C.,.P.;
Q=[Q13,Q11,Q9,Q7,Q5,Q3,Q1,MC];
S=[S3,S2,S1,S0];

equations
MC=!S0&f#S0&f&!Q1#S0&!f&Q1#R;
Q1:=((!Q1&!S1&!S2&!S3)#
     (Q3&S1&!S2&!S3)#
     (Q5&!S1&S2&!S3)#
     (Q7&S1&S2&!S3) #
     (Q9&!S1&!S2&S3)#
     (Q11&S1&!S2&S3)#
     (Q13&!S1&S2&S3))&!R;
Q3:=!Q1&!R;
Q5:=Q3&!R;
Q7:=Q5&!R;
Q9:=Q7&!R;
Q11:=Q9&!R;
Q13:=Q11&!R;
end fenpin