555.abl

这是用AHDL语言即abel语言编写的逻辑可编程器件原代码！供大家参考！

MODULE m10

TITLE '10jishu'

  M10 DEVICE 'P16V8R';
  CP PIN 1;
  CT,CR PIN 2,3 istype'com';
  Q3,Q2,Q1,Q0,CO PIN 12,13,14,15,16 istype'reg';
  COUNT=[Q3,Q2,Q1,Q0];

EQUATIONS

  COUNT.CLK=CP;
  "COUNT.AR=CR;
  CO.CLK=CP;
  CO=Q3&!Q2&!Q1&!Q0&CT;

  WHEN !CT THEN COUNT:=COUNT;
  ELSE when (COUNT==9) THEN COUNT:=0;
  ELSE  COUNT:=COUNT+1;      
  END