555.abl

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

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