程序如下:
ORG 0000H
AJMP MAIN
ORG 0003H
AJMP EINT0
ORG 000BH
AJMP EINT1
ORG 0030H
MAIN:
SETB EA
SETB EX0
SETB IT0
SETB IT1
MOV R1,#0
MOV R2,#0
XIAN:
MOV P2,#0FDH
MOV A,R1
MOVC A,@A+DPTR
MOV P0,A
ACALL DELAY
MOV P2,#0FEH
MOV A,R2
MOV DPTR,#TABLE
MOVC A,@A+DPTR
MOV P0,A
ACALL DELAY
SJMP XIAN
EINT0:
MOV A,R1
INC A
MOV R1,A
CJNE R1,#10,QUIT
MOV R1,#0
MOV A,R2
INC A
MOV R2,A
CJNE R2,#10,QUIT
MOV R2,#0
QUIT:RETI
EINT1:
MOV A,R1
DEC A
MOV R1,A
CJNE R2,#0FFH,QUIT1
MOV R1,#9
MOV A,R2
DEC A
MOV R2,A
CJNE R2,#0FFH,QUIT1
QUIT1:RETI
DELAY:
MOV R7,#10
LP:
MOV R6,#250
DJNZ R6,$
DJNZ R7,LP
RET
TABLE:DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
END
想解决外部中断1为何运行不了减一的问题
|