16X16点阵汉字显示89C51

;*****************16*16 LED点阵显示程序*****************

;*MCU: AT89C51

;*MCU-crystal: 12M

;*Version: 1.0

;*Last Updata: 2005-1-1

;*Author: WWW.PICAVR.COM

;*Description: FOR-16*16 LED点阵显示程序, 参考了一本书上做的.

显示"欢迎光临"字符,字符可同时显示两个汉字并且

可上下,左右移动显示.

;**********************************************************

ORG 00H

START: MOV A,#00H ;清除屏幕

MOV P0,A

MOV P2,A

ACALL DISP ;调用显示子程序

ACALL MOVE ;调用左移子程序

AJMP START

;*********************************************************

DISP: MOV R2,#02H ;每个画面2个字,4个字分2次显示

MOV 20H,#00H ;取码指针暂存地址20H初值为00H

D4: MOV R4,#00H ;74154扫描指针初值

MOV R1,#0FFH ;每幕停留的时间

D5: MOV R6,#32 ;每幕2个字，32个数据

MOV R0,20H ;取码指针存入R0

D2: ACALL READ1 ;调用取码子程序

INC R4 ;扫描下一列

DJNZ R6,D2 ;显示1幕？

MOV R4,#00 ;清除74154扫描指针为00

DJNZ R1,D5 ;每幕停留时间到了？

MOV 20H,R0 ;保留取码指针存入20H地址

DJNZ R2,D4 ;2幕显示完毕了？

RET

;********************************************************

READ1: MOV A,R4 ;扫描指针载入A

MOV P1,A ;输出至P1扫描列

MOV A,R0 ;取码指针载入A

MOV DPTR,#TAB ;数据指针指到TAB

MOVC A,@A+DPTR ;到TAB取上半部的数据码

MOV P0,A ;输出至P0显示

INC R0 ;取下一个码

MOV A,R0 ;取码指针载入A

MOV DPTR,#TAB ;数据指针指到TAB

MOVC A,@A+DPTR ;到TAB取下半部的数据码

MOV P2,A ;输出至P2显示

INC R0 ;取码值加1

MOV R3,#25 ;延时

DJNZ R3,$

MOV A,#00H ;清除屏幕

MOV P0,A

MOV P2,A

DELAY: MOV R3,#01 ;延时

D7: MOV R5,#50

DJNZ R5,$

DJNZ R3,D7

RET

;*************************************************

MOVE:

MOV 20H,#00 ;取码指针暂存地址20H初值为00H

MOV R4,#00H ;74154扫描指针初值

M1: MOV R1,#1FH ;每幕停留的时间

M2: MOV R6,#32 ;每幕2个字，32个数据

MOV R0,20H ;取码指针存入R0

M3: ACALL READ1 ;调用取码子程序

INC R4 ;扫描下一列

DJNZ R6,M3 ;显示1幕？

MOV R4,#00 ;清除74154扫描指针为00

DJNZ R1,M2 ;每幕停留时间到了？

MOV A,20H ;取码指针载入A

ADD A,#02 ;加2

MOV 20H,A ;再存入20H地址取码指针

XRL A,#66 ;4个字是否都左移完毕了？

JNZ M1 ;循环

RET

;*************************************************

DL5S: MOV R6,40H ;delay program

DL1: MOV R5,#200

DL2: MOV R4,#125

DL3: DJNZ R4,$

DJNZ R5,DL2

DJNZ R6,DL1

RET

;************************************************

;"欢迎光临"显示用ROM数据表

TAB: ;欢

DB 00H,20H,3CH,10H

DB 44H,08H,84H,04H

DB 04H,03H,04H,03H

DB 84H,04H,44H,08H

DB 3CH,10H,00H,20H

DB 00H,00H,07H,20H

DB 04H,10H,0F4H,0FH

DB 04H,10H,1CH,20H

;迎

DB 00H,00H,49H,20H

DB 6AH,10H,0DCH,0FH

DB 08H,10H,00H,20H

DB 0FEH,27H,02H,22H

DB 02H,21H,81H,20H

DB 00H,20H,02H,20H

DB 0FEH,2FH,02H,22H

DB 02H,22H,0FEH,21H

;光

DB 00H,00H,00H,20H

DB 22H,20H,24H,20H

DB 28H,10H,30H,08H

DB 0E0H,07H,3FH,00H

DB 20H,00H,0F0H,3FH

DB 28H,20H,24H,20H

DB 22H,20H,20H,20H

DB 00H,38H,00H,00H

;临

DB 00H,00H,0F0H,03H

DB 00H,00H,00H,00H

DB 0FFH,3FH,00H,00H

DB 40H,00H,20H,3FH

DB 10H,21H,0FH,21H

DB 14H,21H,24H,3FH

DB 44H,21H,04H,21H

DB 04H,21H,04H,3FH

DB 00H,00H,00H,00H

END ;程序结束

*博客内容为网友个人发布，仅代表博主个人观点，如有侵权请联系工作人员删除。