dd.abl

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

MODULE  ADD
DECLARATIONS
     ADD   DEVICE 'P16V8R';
     A,B,CI PIN 2, 3, 4;
     S,CO PIN 19,18 ISTYPE 'COM';
EQUATIONS
      S=A$B$CI;
      CO=A&B+A&CI+B&CI;
Test_vectors
     ([CI,A,B]->[CO,S])
      [0,0,0]->[0,0];
      [0,0,1]->[0,1];
      [0,1,0]->[0,1];
      [0,1,1]->[1,0];
      [1,0,0]->[0,1];
      [1,0,1]->[1,0];
      [1,1,0]->[1,0];
      [1,1,1]->[1,1];
END     ADD