[求助]求助幫忙看看這兩程序啊

ID:41360 · 發(fā)表于 2012-6-6 23:43

求大神看看這個(gè)程序中哪個(gè)語(yǔ)句可以控制二極管發(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************