八个发光二极管由低位到高位单只点亮求源程序

ORG 0000H
LJMP MAIN
ORG 000BH
LJMP T0ISR
ORG 0000H
MAIN:
MOV TMOD,#01H
MOV TH0,#HIGH(65536-50000)
MOV TL0,#LOW(65536-50000)
SETB TR0
SETB ET0
SETB EA
MOV A,#0FEH
MOV P1,A
MOV R2,#20
SJMP $
T0ISR:
CLR TR0
MOV TH0,#HIGH(65536-50000)
MOV TL0,#LOW(65536-50000)
SETB TR0
DJNZ R2,T0E
RL A
MOV P1,A
MOV R2,#20
T0E:
RETI
END