danpianji.doc

单片机控制16*16点阵LED显示利用取模软件建立标准字库

6，程序清单： 
??????? ORG 0000H
??????? LJMP START?
??????? ORG 2D80H?
XPA???? EQU 0FF28H ;L-SAO-1,CTL-MODE:BING XIN KO
XPB???? EQU 0FF29H ;L-SAO-2?
;-------------------------------------------------------------------- 
XPC???? EQU 0FF2AH ;H-CODE-2
XPCTL?? EQU 0FF2BH?
START:? MOV DPTR,#XPCTL ;THIS IS A PROGRAM OF?
??????? ；L-MOVE-WORD
??????? MOV A,#80H?
??????? MOVX @DPTR,A ;WR-CTL
??????? CALL OFFLED ;OFFLED
??????? CLR 00H?
??????? MOV R6,#28H?
??????? MOV R7,#0FFH
;----------------------------------------
X0:???? MOV R0,#00H ;ONE-WORD-FIRST-NUM
X1:???? CALL DEL1 ;QI
??????? INC R0 ;RL-1-BIT
??????? mov a,r0
??????? anl a,#0fh
??????? cjne a,#00h,l2
??????? mov a,#10h
??????? add a,r0
??????? mov r0,a?
l2:???? CJNE R0,#00H,X1
??????? SJMP X0
;------------------------------------------- 
DISPW:? PUSH 00H ;DISP-ONE-WORD
??????? MOV R1,#01H ;L-NUM
??????? CLR C
DISP1:? MOV A,R0 ;BH1?
??????? MOV DPTR,#TAB
??????? MOVC A,@A+DPTR
??????? MOV DPTR,#XPC
??????? MOVX @DPTR,A
;-------------------------------------------
??????? mov a,#10h
??????? add a,r0
??????? MOV DPTR,#TAB
??????? MOVC A,@A+DPTR
??????? MOV P1,A
??????? INC R0 ;BH2?
;-------------------------------------------
??????? mov a,r0
??????? anl a,#0fh
??????? cjne a,#00h,l1
??????? mov a,#10h
??????? add a,r0
??????? mov r0,a
??????? clr c ;!!!!!
l1:???? MOV DPL,R6 ;XPA/XPB
??????? MOV DPH,R7
??????? MOV A,R1 ;L0----L7
??????? CPL A
??????? MOVX @DPTR,A
??????? mov r3,#80h
??????? djnz r3,$
??????? CALL OFFLED
??????? MOV A,R1
??????? RLC A
??????? MOV R1,A
??????? JNC DISP1?
??????? JB 00H,EXIT
;----------------------------------
??????? SETB 00H
??????? CLR C
??????? MOV R1,#01H
??????? MOV R6,#29H
??????? MOV R7,#0FFH
??????? AJMP DISP1
EXIT:?? MOV R6,#28H
??????? MOV R7,#0ffH
??????? CLR 00H
??????? POP 00H
??????? RET?
;----------------------------------- 
DEL1:?? MOV R2,#05H
DELY:?? PUSH 02H
DEL2:?? PUSH 02H
DEL3:?? PUSH 02H
DEL4:?? DJNZ R2,DEL4
??????? CALL DISPW
??????? POP 02H
??????? DJNZ R2,DEL3
??????? POP 02H
??????? DJNZ R2,DEL2
??????? POP 02H
??????? DJNZ R2,DELY
??????? RET
;---------------------------------------------------------?
OFFLED: MOV DPTR,#XPA
??????? MOV A,#0FFH
??????? MOVX @DPTR,A
??????? MOV DPTR,#XPB
??????? MOVX @DPTR,A
??????? RET