;此程序只進行紅外發射的檢測，解碼和發射部分自行查找
ORG 00H
START:setb P3.3
call delay
mov a,p3
mov p1,a
clr P3.3
call delay
MOV A,P3
MOV P1,A
JMP START
delay:mov r3,#1
d2:   mov r5,#20
d1:   mov r4,#248
      djnz r4,$
      djnz r5,d1
      djnz r3,d1
      ret
END