首 页 用户登录 | ![]() |
|||
|
|||
按字母检索 | A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q | R | S | T | U | V | W | X | Y | Z |
按声母检索 | A | B | C | D | E | F | G | H | J | K | L | M | N | O | P | Q | R | S | T | W | X | Y | Z | 数字 | 符号 |
|
![]() |
您的位置: 5VAR论文频道 → 论文中心 → 理工论文 → 电子通信 |
|
|||||
AT93C46/56/55串行EEPROM及单片机程序 | |||||
收集整理:佚名 来源:本站整理 时间:2009-01-10 22:50:55 点击数:[] ![]() |
|||||
,由于PL/M语言介于高级语言与汇编语言之间,故其对数据、地址位的处理比较繁琐。其中ADDR为指定的地址单元,DATA为写入的数据,在写数据、地址时均从高位开始。本程序已在仿真器上调试通过。且已被应用于电量测试仪中(如接触电阻测试仪)。 DECLARE SETCS LITERALLY ‘CALL BITSET. IO-PORT2,0′; DECLARE CLRCS LITERALLY ‘CALL BITCLR. IOPORT2,0′; DECLARE SETCLK LITERALLY ‘CALL BITSET. IOPORT2,5′; DECLARE CLRCLK LITERALLY ‘CALL BITCLR. IOPORT2,5′; DECLARE SETDI LITERALLY ‘CALL BITSET. IO-PORT1,5′; DECLARE CLRDI LITERALLY ‘CALL BITCLR. IOPORT1,5′; EWEN:PROCEDURE PUBLIC; DECLARE I BYTE; CLRCS; CLRDI; CLRCLK; SETCS; SETDI; SETCLK; DO I=1 TO 2; CLRCLK; CLRDI; SETCLK; END; DO I=1 TO 2; CLRCLK; SETDI; SETCLK; END; DO I = 0 TO 6; CLRCLK; SETDI; SETCLK; END; CLRCLK; CLRCS; SETCS; SETCLK; CLRCLK; END EWEN; READ:PROCEDURE(ADDR) PUBLIC; DECLARE (ADDR,I,COUNT) BYTE; CLRCS; CLRDI; CLRCLK; SETCS; DO I= 1 TO 2; CLRCLK; SETDI; SETCLK; END; DO I =1 TO 2; CLRCLK; CLRDI; SETCLK; DO COUNT=1 TO 7; BITOUT(COUNT)=SHR(BITOUT(COUNT),1); END; CLRCS; CLRDI; CLRCLK; CALL TIME(100); SETCS; CLRC; END READ; WRITE: PROCEDURE(ADDR,DATA) PUBLIC; DECLARE (ADDR,DATA) BYTE; CLRCS; CLRDI; CLRCLK; SETCS; SETDI; SETCLK; CLRDI; CLRCLK; SETCLK; SETDI; CLRCLK; SETCLK; END; DO I =-1 TO 8; X=ROL(ADDR,1); ADDR=X; CLRCLK; IF ((X AND 01H)=01H)THEN SETDI; ELSE CLRDI; SETCLK; END; DO I =1 TO 7; CLRCLK; SETCLK; END; DO I =1 TO 8 CALL BITSET(.IOPORT1,7); COUNT=COUNT-1; CLRCLK; SETCLK; BITOUT(COUNT)=IOPORT1; END; CLRCLK; SETCLK; J=0; AA: DO I= 1 TO 8; J=J+1; X=ROL(ADDR,1; ADDR=X; CLRCLK; IF((X AND 01H)=01H) THEN SETDI ELSE CLRDI; SETCLK; END; IF J<>16 THEN DO; ADDR =DATA; GOTO AA; END; CLRCS;SETCS; CALL TIME(100); END; |
提供人:佚名 | |
【返回上一页】【打 印】【关闭窗口】 |
![]() |
5VAR论文频道 |
![]() |
5VAR论文频道 |
![]() |
关于本站 -
网站帮助 -
广告合作 -
下载声明 -
网站地图
Copyright © 2006-2033 5Var.Com. All Rights Reserved . |