aya 

 [原创]:高手请进，帮我看一程序！！！！！！！！
这道程序调试正确，但运行不出结果，请帮我看一下，thanks! 
ORG 0000H    ；电脑时钟显示
 AJMP MAIN
 ORG 000BH
 AJMP TIMER0
 ORG 0030H
MAIN: MOV 30H,#14H ；20次
 MOV 7FH,#00H ；时
 MOV 7EH,#00H ；分
 MOV 7DH,#00H ；秒
 MOV TMOD,#01H
 MOV TH0,#3CH
 MOV TL0,#0B0H
 SETB EA
 SETB ET0
 SETB TR0
LOOP: ACALL DISPLY
 AJMP LOOP

TIMER0: PUSH ACC
 push psw
 MOV TH0,#3CH
 MOV TL0,#0B0H
 DJNZ 30H,RET0
 MOV 30H,#14H
 MOV R0,#7DH
 ACALL ADD1
 CJNE A,#60H,NOVER1
 MOV A,#00H
 MOV @R0,A
 INC R0
 ACALL ADD1
 CJNE A,#60H,NOVER2
 MOV A,#00H
 MOV @R0,A
 INC R0
 ACALL ADD1
 CJNE A,#24H,NOVER3
 MOV 7FH,#00H
RET0: pop psw
 POP ACC
 RETI
NOVER1: MOV 7DH,A 
 pop psw  
 POP ACC
 RETI
NOVER2: MOV 7EH,A
 pop psw
 POP ACC
 RETI
NOVER3: MOV 7FH,A
 pop psw
 POP ACC
 RETI

ADD1: MOV A,@R0
 ADD A,#01H
 DA A
 RET

DISPLY: 
 MOV R4,#03H
 MOV R5,#01H
 MOV DPTR,#TAB
 MOV R0,#7DH
LOOP1: MOV A,@R0
 ANL A,#0FH
 MOVC A,@A+DPTR
 MOV P0,A
 MOV A,R5
 MOV P2,A
 RL A
 MOV R5,A
 ACALL DELAY
 MOV A,@R0
 ANL A,#0F0H
 SWAP A
 MOVC A,@A+DPTR
 MOV P0,A
 MOV A,R5
 MOV P2,A
 RL A
 MOV R5,A
 ACALL DELAY
 INC R0
 DJNZ R4,LOOP1

 RET
DELAY: 
 MOV R7,#20
D1: MOV R6,#20
 DJNZ R6,$
 DJNZ R7,D1
 RET
TAB: 
 DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
 END

发表时间:2005年10月30日21:30:13