8bit.abl

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

MODULE count

TITLE '10jishu'
count DEVICE 'P16V8R';


  CP PIN 1;

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

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

  COUNT=[Q0..Q7];



EQUATIONS

  COUNT.CLK=CP;

  WHEN !CT#CR THEN COUNT:=0;

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

  ELSE  COUNT:=COUNT+1;
       
  END