8 8X8LED点阵显示程序.docVIP

8×8程序： ORG 0000H LJMP START ORG 0080H START: ;P2口接行线，P3口接列线 NOP MOV R3,#3 ;产生从右到左的竖柱。并显示3次 LOP2: MOV R4,#8 ;竖柱从右到左需要经过8次循环 MOV R2,#0 ;从第0列开始扫描 LOP1: MOV P2,#0FFH ;行线置0FFH，每根行线都置高电平1 MOV DPTR,#TABA MOV A,R2 ;从第0列开始，逐列扫描 MOVC A,@A+DPTR ;查表得列线值 MOV P3,A ;送列线值 INC R2 ;扫描下一列 LCALL DELAY DJNZ R4,LOP1 ;从右到左是否扫描完成 DJNZ R3,LOP2 ;总共显示3次 MOV R3,#3 ;产生从左到右的竖柱。并显示3次 LOP4: MOV R4,#8 MOV R2,#7 LOP3: MOV P2,#0FFH MOV DPTR,#TABA MOV A,R2 MOVC A,@A+DPTR MOV P3,A DEC R2 LCALL DELAY DJNZ R4,LOP3 DJNZ R3,LOP4 MOV R3,#3 ;产生从上到下的横柱。并显示3次 LOP6: MOV R4,#8 MOV R2,#0 LOP5: MOV P3,#00H MOV DPTR,#TABB MOV A,R2 MOVC A,@A+DPTR MOV P2,A INC R2 LCALL DELAY DJNZ R4,LOP5 DJNZ R3,LOP6 MOV R3,#3 ;产生从下到上的横柱。并显示3次 LOP8: MOV R4,#8 MOV R2,#7 LOP7: MOV P3,#00H MOV DPTR,#TABB MOV A,R2 MOVC A,@A+DPTR MOV P2,A DEC R2 LCALL DELAY DJNZ R4,LOP7 DJNZ R3,LOP8 LCALL START DELAY: ;延时子程序 MOV R5,#20 D2: MOV R6,#20 D1: MOV R7,#248 DJNZ R7,$ DJNZ R6,D1 DJNZ R5,D2 RET TABA:DB 0FEH,0FDH,0FBH,0F7H,0EFH,0DFH,0BFH,07FH ;行置1，列采用逐行扫描 TABB:DB 01H,02H,04H,08H,10H,20H,40H,80H ;列置0，行采用逐行扫描 END ORG 0000H LJMP START ORG 0080H START: ;P2口接行线，P3口接列线 LOP2: MOV R4,#8 ;竖柱从右到左需要经过8次循环 MOV R2,#0 ;从第0列开始扫描 LOP1: MOV DPTR,#TABA MOV A,R2 ;从第0列开始，逐列扫描 MOVC A,@A+DPTR ;查表得列线值 MOV P3,A CPL A MOV P2,A ;送列线值 INC R2 ;扫描下一列 LCALL DELAY DJNZ R4,LOP1 ;从右到左是否扫描完成 LOP4: MOV R4,#8 MOV R2,#7 LOP3: MOV DPTR,#TABA MOV A,R2 MOVC A,@A+DPTR MOV P3,A CPL A MOV P2,A DEC R2 LCALL DELAY DJNZ R4,LOP3 SJMP START DELAY: ;延时子程序 MOV R5,#30 D2: MOV R6,#20 D1: MOV R7,#248 DJNZ R7,$ DJNZ R6,D1 DJNZ R5,D2 RET TABA:DB 0FEH,0FCH,0F8H,0F0H,0E0H,0C0H,80H,00H ;列置1，行采用逐行扫描 END