// 本程序使用 Trubo51( https://turbo51.com/ ) 单片机 PASCAL 编译器
// 此程序 电路图 同接 实例1
// 留意 二进制常数、十六进常数的表示方法
// 留意 SHL(左移位) 、按位取反NOT、按位与AND
// 主程序单元 Test2.pas
Program NewProgram;
uses
Delay;
var
Led:byte absolute P1 ;
i:byte;
begin
while True do begin
Led:=%11111111 ;