本程序已用51的学习版烧进STC89C52测试OK ,P2口输出,
查找替换所有P2 为P1即可
;
ORG 4000H
LJMP START
ORG 400BH ;T0中断入口
LJMP T0_INT
START:
MOV TMOD, #01H
MOV TH0, #3CH
MOV TL0, #0B0H
SETB TR0
MOV IE, #82H
MOV R7, #20
MOV R6, #1
CLR P1.0
SJMP $
T0_INT: ;T0中断程序
MOV TH0, #3CH
MOV TL0, #0B0H
DJNZ R7, T0_END
MOV R7, #20
MOV P1, #255
INC R6
CJNE R6, #1, T02
CLR P1.0
JMP T0_END
T02:
CJNE R6, #2, T03
CLR P1.1
JMP T0_END
T03:
CJNE R6, #3, T04
CLR P1.2
JMP T0_END
T04:
CJNE R6, #4, T05
CLR P1.3
JMP T0_END
T05:
CJNE R6, #5, T06
MOV P1, #0
JMP T0_END
T06:
MOV R6, #0
T0_END:
RETI
END