程序如下:
ORG 0000H
JMP MAIN
ORG 000BH //外部中断0入口
JMP INT_0
//中断程序
MAIN:
MOV TMOD,#01H
MOV TH0,#0E7H
MOV TL0,#96H
SETB EA //中断总开关
SETB ET0
SETB TR0
MOV DPTR,#TAB
MOV R0,#0
MOV P2,#7FH
MOV A,R0
MOVC A,@A+DPTR
MOV P3,A
JMP $
INT_0:
MOV TH0,#0E7H
MOV TL0,#96H
MOV A,P2
RR A
MOV P2,A
INC R0
MOV A,R0
MOVC A,@A+DPTR
MOV P3,A
CJNE R0,#8,OK
MOV R0,#0
MOV P2,#7FH
MOV DPTR,#TAB
MOV A,R0
MOVC A,@A+DPTR
MOV P3,A
OK:
RETI
TAB:
db 00H,6CH,82H,92H,00H,44H,28H,10H
END |