求大神看看 這個(gè)程序中哪個(gè)語句可以控制二極管發(fā)光？ 是什么時(shí)間發(fā)光��？
程序：
LEDDUAN EQU 8004H
LEDWEI EQU 8002H
KVALUE EQU 52H
NUM EQU 50H
ORG 0000H
LJMP MAIN
ORG 000BH
LJMP COUNT
ORG 0100H
MAIN: CLR A
CLR B
MOV R0,#00H
MOV R1,#00H
MOV R2,#00H
MOV R3,#00H
MOV R4,#00H
MOV R5,#00H
MOV NUM,#10
MOV SP,#70H
MOV DPTR,#LEDDUAN
MOV A,#00H
MOVX @DPTR,A
MOV DPTR,#LEDWEI
MOV A,#00H
MOVX @DPTR,A
J1S: MOV TMOD,#01H
MOV TH0,#3CH
MOV TL0,#0B0H
SETB EA
SETB ET0
SETB TR0
START: LCALL DISPLAY
LCALL KEYBOARD
MOV A,KVALUE
CJNE A,#0FFH,TIME
LCALL CHANGE
TIME: CJNE R0,#60,NEXT2 ;SECOND
MOV R0,#00H
INC R1
CJNE R1,#60,NEXT2 ;MINUTE
MOV R1,#00H
INC R2
CJNE R2,#24,NEXT2 ;HOUR
MOV R2,#00H
NEXT2: SJMP START
;***********CHANGE TIME****************
CHANGE: CLR TR0
CHOUR: MOV R5,#01H
CHOUR2: LCALL DISPLAY
LCALL KEYBOARD
MOV A,KVALUE
CJNE A,#0FFH,KEY1
LJMP CMIN
KEY1: CJNE A,#10H,KEY2
LJMP ADHOUR
KEY2: LJMP CHOUR2
ADHOUR:INC R2
CJNE R2,#24,JHOUR
MOV R2,#00H
JHOUR: LJMP CHOUR2
CMIN: MOV R5,#02H
CMIN2: LCALL DISPLAY
LCALL KEYBOARD
MOV A,KVALUE
CJNE A,#0FFH,KEY3
LJMP CSEC
KEY3: CJNE A,#10H,KEY4
LJMP ADMIN
KEY4: LJMP CMIN2
ADMIN: INC R1
CJNE R1,#60,JMIN
MOV R1,#00H
JMIN: LJMP CMIN2
CSEC: MOV R5,#03H
CSEC2: LCALL DISPLAY
LCALL KEYBOARD
MOV A,KVALUE
CJNE A,#0FFH,KEY5
LJMP EXCH
KEY5: CJNE A,#10H,KEY6
LJMP ADSEC
KEY6: LJMP CSEC2
ADSEC: INC R0
CJNE R0,#60,JSEC
MOV R0,#00H
JSEC: LJMP CSEC2
EXCH: MOV TH0,#3CH
MOV TL0,#0B0H
MOV R5,#00H
SETB TR0
RET
;*************END***************
;***********DISPLAY*************
DISPLAY:MOV DPTR,#LEDWEI ;HOUR
MOV A,#20H
MOVX @DPTR,A
MOV A,R2
MOV B,#10
DIV AB
MOV DPTR,#LEDTAB
MOVC A,@A+DPTR
CJNE R5,#01H,CMOD0
ORL A,#80H ;POINT
CMOD0: MOV DPTR,#LEDDUAN
MOVX @DPTR,A
LCALL D2MS
MOV DPTR,#LEDWEI
MOV A,#10H
MOVX @DPTR,A
MOV A,B
MOV DPTR,#LEDTAB
MOVC A,@A+DPTR
CJNE R5,#00H,JU1
SJMP POI1
JU1: CJNE R5,#01H,CMOD1
POI1: ORL A,#80H ;POINT
CMOD1: MOV DPTR,#LEDDUAN
MOVX @DPTR,A
LCALL D2MS
MOV DPTR,#LEDWEI ;MINUTE
MOV A,#08H
MOVX @DPTR,A
MOV A,R1
MOV B,#10
DIV AB
MOV DPTR,#LEDTAB
MOVC A,@A+DPTR
CJNE R5,#02H,CMOD2
ORL A,#80H ;POINT
CMOD2: MOV DPTR,#LEDDUAN
MOVX @DPTR,A
LCALL D2MS
MOV DPTR,#LEDWEI
MOV A,#04H
MOVX @DPTR,A
MOV A,B
MOV DPTR,#LEDTAB
MOVC A,@A+DPTR
CJNE R5,#00H,JU2
SJMP POI2
JU2: CJNE R5,#02H,CMOD3
POI2: ORL A,#80H ;POINT
CMOD3: MOV DPTR,#LEDDUAN
MOVX @DPTR,A
LCALL D2MS
MOV DPTR,#LEDWEI ;SECOND
MOV A,#02H
MOVX @DPTR,A
MOV A,R0
MOV B,#10
DIV AB
MOV DPTR,#LEDTAB
MOVC A,@A+DPTR
CJNE R5,#03H,CMOD4
ORL A,#80H ;POINT
CMOD4: MOV DPTR,#LEDDUAN
MOVX @DPTR,A
LCALL D2MS
MOV DPTR,#LEDWEI
MOV A,#01H
MOVX @DPTR,A
MOV A,B
MOV DPTR,#LEDTAB
MOVC A,@A+DPTR
CJNE R5,#00H,JU3
SJMP POI3
JU3: CJNE R5,#03H,CMOD5
POI3: ORL A,#80H ;POINT
CMOD5: MOV DPTR,#LEDDUAN
MOVX @DPTR,A
LCALL D2MS
RET
;**********END**************
D2MS: MOV R4,#0AH
DL2: MOV R3,#32H
DL1: NOP
NOP
DJNZ R3,DL1
DJNZ R4,DL2
RET
D10MS: MOV R4,#64H
DL4: MOV R3,#14H
DL3: NOP
NOP
NOP
DJNZ R3,DL3
DJNZ R4,DL4
RET
COUNT: DJNZ NUM,NEXT
INC R0
MOV NUM,#10
NEXT: MOV TH0,#3CH
MOV TL0,#0B0H
RETI
;*******KEYBOARD*************
KEYBOARD:MOV P1,#0FFH
MOV KVALUE,#16H
;*************************
WAIT: MOV A,P1
ANL A,#03H
XRL A,#03H
JZ NOKEY1
LCALL D10MS
MOV A,P1
ANL A,#03H
XRL A,#03H
JZ NOKEY1
MOV A,P1
ANL A,#03H
CJNE A,#02H,NK1
MOV KVALUE,#0FFH
LJMP DK1A
NK1: CJNE A,#01H,DK1A
MOV KVALUE,#10H
DK1A: MOV A,P1
ANL A,#03H
XRL A,#03H
JNZ DK1A
;*********LIE-2***************
NOKEY1: RET
;********END************
LEDTAB: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
樓主講的是發(fā)光二級(jí)管，不是數(shù)碼管。
我沒看見哪兒有發(fā)光二級(jí)管。
| 歡迎光臨 (http://www.torrancerestoration.com/bbs/) | Powered by Discuz! X3.1 |