m10.abl

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

MODULE m10

TITLE '10jishu'
 m10 device 'p16v8r';


  CP PIN 1;

  CT,CR PIN 2,3 istype'com';

  Q6,Q5,Q4,Q3,Q2,Q1,Q0,CO PIN 12,13,14,15,16,17,18,19 istype'reg';

  COUNT=[Q0..Q6];



EQUATIONS

  COUNT.CLK=CP;

  CO.CLK=CP;

  "COUNT.AR=CR;

  CO:=Q6&Q5&Q4&Q3&Q2&Q1&Q0&CT;

  WHEN !CT#CR  THEN COUNT:=0;

  ELSE when (COUNT==127) THEN COUNT:=0;

  ELSE  COUNT:=COUNT+1;
       
  END