? ORG?0000H ? ;?再試試
? MOV SP,#60H ?;棧起點設置為60H
? MOV 7AH,#01H
? MOV 7BH,#02H
? MOV 7CH,#03H
? MOV 7DH,#04H ? ;復位狀態字型碼送緩沖區
LooP:?ACALL? DIS
? LCALL? DAY
? SJMP?LooP
? ;------------顯示子程序----------------
? ;4***陰極LED,P0控制段,P2控制位
DIS:? MOV?DPTR,#TAB
DIS1:?MOV?R0,#7AH
? MOV?R1,#0feH ;反向驅動位選擇初值
? MOV?R2,#04H
DIS2:?MOV?A,@R0
? MOVC?A,@A+DPTR
? ORL?P2,#0FH ; 消隱
? MOV?P0,A
? MOV?A,R1
? MOV?P2,A
? LCALL? DAY ? ;1ms
? INC? R0
? RL? A
? MOV?R1,A
? DJNZ?R2,DIS2
? RET
TAB:? DB? 03FH,06H,05BH,4FH,66H,6DH,7DH,07H ;
? DB? 7FH,6FH,77H,7CH,39H,5EH,79H,71H,00H,40H
;------------1ms延時子程序----------------DAY:? MOV?R6,#1
D1: MOV?R7,#248
D2: NOP
? NOP
? DJNZ?R7,?D2
? DJNZ?R6,?D1
? RET
? END