借花献佛:
ORG 4000H
AJMP START
ORG 401BH
AJMP INQP
ORG 4030H
START:MOV TMOD,#10H
MOV TH1,#03CH
MOV TL1,#0B0H
SETB TR1
SETB ET1
SETB EA
MOV R1,#50
MOV A,#0FEH
LOOP: MOV P1,A
AJMP LOOP
LOOP2:MOV P1,#0FFH
AJMP INQP
INQP :JNB P3.0 LOOP2
MOV TH1,#03CH
MOV TL1,#0B0H
DJNZ R1,LOOP3
RL A
MOV R1,#50
LOOP3:RETI
AJMP LOOP2
AJMP $
END