8 8X8LED点阵显示程序.doc

88程序：ORG 0000HLJMP STARTORG 0080HSTART:;P2口接行线，P3口接列线NOPMOV R3,#3 ;产生从右到左的竖柱。并显示3次LOP2:MOV R4,#8 ;竖柱从右到左需要经过8次循环MOV R2,#0 ;从第0列开始扫描LOP1:MOV P2,#0FFH ;行线置0FFH，每根行线都置高电平1MOV DPTR,#TABA MOV A,R2 ;从第0列开始，逐列扫描MOVC A,A+DPTR ;查表得列线值MOV P3,A ;送列线值INC R2 ;扫描下一列LCALL DELAYDJNZ R4,LOP1 ;从右到左是否扫描完成DJNZ R3,LOP2 ;总共显示3次MOV R3,#3 ;产生从左到右的竖柱。并显示3次 LOP4:MOV R4,#8MOV R2,#7LOP3:MOV P2,#0FFHMOV DPTR,#TABAMOV A,R2MOVC A,A+DPTRMOV P3,ADEC R2LCALL DELAYDJNZ R4,LOP3DJNZ R3,LOP4MOV R3,#3 ;产生从上到下的横柱。并显示3次 LOP6:MOV R4,#8MOV R2,#0LOP5:MOV P3,#00HMOV DPTR,#TABBMOV A,R2MOVC A,A+DPTRMOV P2,AINC R2LCALL DELAYDJNZ R4,LOP5DJNZ R3,LOP6MOV R3,#3 ;产生从下到上的横柱。并显示3次LOP8:MOV R4,#8MOV R2,#7LOP7:MOV P3,#00HMOV DPTR,#TABBMOV A,R2MOVC A,A+DPTRMOV P2,ADEC R2LCALL DELAYDJNZ R4,LOP7DJNZ R3,LOP8LCALL STARTDELAY: ;延时子程序MOV R5,#20D2:MOV R6,#20D1:MOV R7,#248DJNZ R7,$DJNZ R6,D1DJNZ R5,D2RETTABA:DB 0FEH,0FDH,0FBH,0F7H,0EFH,0DFH,0BFH,07FH ;行置1，列采用逐行扫描TABB:DB 01H,02H,04H,08H,10H,20H,40H,80H ;列置0，行采用逐行扫描ENDORG 0000HLJMP STARTORG 0080HSTART:;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,ACPL A MOV P2,A ;送列线值INC R2 ;扫描下一列LCALL DELAYDJNZ R4,LOP1 ;从右到左是否扫描完成LOP4:MOV R4,#8MOV R2,#7LOP3:MOV DPTR,#TABAMOV A,R2MOVC A,A+DPTRMOV P3,ACPL AMOV P2,ADEC R2LCALL DELAYDJNZ R4,LOP3SJMP STARTDELAY: ;延时子程序MOV R5,#30D2:MOV R6,#20D1:MOV R7,#248DJNZ R7,$DJNZ R6,D1D