在 51 单片机系统中使用 8155

单片机自身的RAM存储空间和引脚数目往往有些不足，当需要在外部拓展不太多的时候，8155芯片就是首选了。

一片8155，可以提供256字节的RAM，3个并行IO接口和一个14位的定时器。

8155的内部还集成了地址锁存器，如果只是需要扩展8155，就可以省去常用的地址锁存器74LS373。

下面，先写一个使用单片机自身资源来驱动16个LED进行流水的程序。

然后，再把它改造为利用8155来驱动。

利用51单片机驱动16个LED流水灯的汇编语言程序如下。

;=========================================================

;16个LED接到P0,P2。

ORG0000H

START:

MOV30H,#254;片内RAM

MOV31H,#255;30H31H中仅有一个低电平

;-------------------------------------

MOVR2,#16;循环16遍

LOOP:

MOVP0,30H;输出到LED

MOVP2,31H

CALLDLY200MS;延时

CALLSHIFT_L;移位

DJNZR2,LOOP;循环16遍

SJMPSTART;再从头开始

;-------------------------------------

SHIFT_L:;16位数左移一位

MOVA,30H

RLCA;高位移入Cy

MOV30H,A

;---------------

MOVA,31H

RLCA;Cy移入低位，且高位移入Cy

MOV31H,A

;---------------

MOVA,30H

MOVACC.0,C;把Cy(高位)写入低位

MOV30H,A

;---------------

RET

;-------------------------------------

DLY200MS:;延时200ms,误差0us

MOVR6,#197;

DL0:

MOVR7,#250;1

DJNZR7,$;2*250=500

DJNZR7,$;2*256=512

DJNZR6,DL0;(1+500+512+2)*197=199955

MOVR7,#19;1

DJNZR7,$;2*19=38

NOP;1

RET;1+199955+1+38+1+2=199998

;-------------------------------------

END

;=========================================================

上述程序所对应的电路，太简单了，就不在这里显示插图了，读者可自行画图。

当在电路中加入了一片8155，电路可以如下连接：

图片链接：http://xiangce.baidu.com/picture/detail/077253d8ef5443cc7ce6c5e5461a899e2034497a

图中，由于使用了P2.7和P2.0连接到CS和IO/M，所以，8155的接口地址、存储器地址分别为：

;I/O地址:

COMMANDEQU7F00H

PORTAEQU7F01H

PORTBEQU7F02H

PORTCEQU7F03H

TIMER_LEQU7F04H

TIMER_HEQU7F05H

;MEM地址:

;7E00H~7EFFH

因此，前面的流水灯程序，就要如下修改：

;=========================================================

;51单片机流水灯（16个灯）

;P0,P2外接16个LED－－改为PA,PB

;30H,31H片内RAM－－－－改为片外

ORG0000H

START:

MOVDPTR,#COMMAND

MOVA,#00000011B;PA方式0输出，PB方式0输出

MOVX@DPTR,A

INCDPTR;转到PA

MOVA,#00110011B;测试共阳极7段数码管

MOVX@DPTR,A

INCDPTR;转到PB

MOVA,#00001111B

MOVX@DPTR,A

;MOV30H,#254;－－改为7E30H

;MOV31H,#255;－－改为7E31H

MOVDPTR,#7E30H

MOVA,#254

MOVX@DPTR,A

MOVDPTR,#7E31H;片外RAM7E30H7E31H

MOVA,#255;中仅有一个低电平

MOVX@DPTR,A

;-------------------------------------

MOVR2,#16;循环16遍

LOOP:

;MOVP0,30H;输出到LED

;MOVP2,31H

MOVDPTR,#7E30H

MOVXA,@DPTR

MOVDPTR,#PORTA

MOVX@DPTR,A

MOVDPTR,#7E31H

MOVXA,@DPTR

MOVDPTR,#PORTB

MOVX@DPTR,A

CALLDLY200MS;延时

CALLSHIFT_L;移位

DJNZR2,LOOP;循环16遍

SJMPSTART;再从头开始

;-------------------------------------

SHIFT_L:;16位数左移一位

;MOVA,30H

MOVDPTR,#7E30H

MOVXA,@DPTR

RLCA;高位移入Cy

;MOV30H,A

MOVX@DPTR,A

;---------------

;MOVA,31H

MOVDPTR,#7E31H

MOVXA,@DPTR

RLCA;Cy移入低位，且高位移入Cy

;MOV31H,A

MOVX@DPTR,A

;---------------

;MOVA,30H

MOVDPTR,#7E30H

MOVXA,@DPTR

MOVACC.0,C;把Cy(高位)写入低位

;MOV30H,A

MOVX@DPTR,A

;---------------

RET

;-------------------------------------

DLY200MS:;延时200ms,误差0us

MOVR6,#197;

DL0:

MOVR7,#250;1

DJNZR7,$;2*250=500

DJNZR7,$;2*256=512

DJNZR6,DL0;(1+500+512+2)*197=199955

MOV R7, #19 ;1