具有完整代码和原理图的典型单片机应用实例

典型单片机应用实例 现截取一段LED万年历源程序： 0e0h,0feh,0f6h,00h); declare week(11) byte constant (0edh,028h,0dch,7ch,39h,75h,0f5h, 2ch,0fdh,7dh,00h); declare da literally 'p15',clk literally 'p16',ale literally 'p17', mk literally 'p11',sk literally 'p12'; clear:procedure; sclk=0;io=0;rst=0; end clear; send1302:procedure(comm); declare (i,comm) byte; do i=0 to 7; comm=scr(comm,1); io=cy; call time(1); sclk=0; call time(1); sclk=1; end; end send1302; wbyt1:procedure(com,dat);/*字节写过程*/ declare (com,dat) byte; call clear; rst=1; call send1302(com); call send1302(dat); call clear; end wbyt1; wbyt8:procedure;/*时钟多字节突发模式写过程*/ declare j byte; call clear; a(7)=A(6);a(6)=a(0); rst=1; call send1302(command); do j=1 to 8; call send1302(a(j)); end; call clear; end wbyt8; RBYT1:PROCEDURE; DECLARE I BYTE; CALL CLEAR; RST=1; call send1302(0c1h); IO=1; DO I=0 TO 7; SCLK=1; SCLK=0; CY=IO; N=SCR(N,1); END; A(8)=N; CALL CLEAR; END RBYT1; send595:procedure; declare k byte; do k=0 to 7; data=scr(data,1); da=cy; clk=1;