哪位达人帮我解释一下这段程序

攸哉vs攸哉

敬请高人指教，解释写在语句后面哈（或者哪位大虾能提供一个红外报警器的单片机程序也可，小弟在做毕设，不胜感激啊）
ORG 0010H
START:MOV DPTR,#TAB
      CLR P3.1
      SETB P1
      MOV A,P1
      CPL A
      ANL A,#0F0H
      SWAP A
      MOV R0,A
      LCALL DISP1
      MOV A,P1
      CPL A
      ANL A,#0FH
      MOV R1,A
      LCALL DISP2
GWPD:CJNE R0,#00H,GWJ1
      CJNE R1,#00H,SWJ1
      LCALL DISP1
      LCALL DISP2
      LCALL BJ
SWJ1: LCALL YSLMIN
      MOV R0,#09H
      LCALL DISP1
      DEC R1
      LCALL DISP2
GWJ1: LCALL YSLMIN
      DEC R0
      LCALL DISP1
      LJMP GWPD
DISP1:MOV A,R0
      MOVC A,@A+DPTR
      MOV P2,A
      RET
DISP2:MOV A,R1
      MOVC A,@A+DPTR
      MOV P0,A
      RET
YSLMIN:MOV R7,#60
       MOV R6,#10
       MOV TMOD,#01H
       MOV TL0,#0B0H
       MOV TH0,#03H
       SETB TR0
  LOOP:JBC TF0,DONE
       SJMP LOOP
  DONE:MOV TL0,#0B0H
       MOV TH0,#03CH
       CJNE R7,#00H,SIX
       MOV R7,#60
   SIX:DJNZ R6,LOOP
       DJNZ R7,LOOP
       RET
    BJ:MOV TMOD,#11H
       MOV TH1,0FH
       MOV TL1,0CH
       SETB TR1
LOOP1:JBC TF1,LOOP2
       SJMP LOOP1
LOOP2:MOV TH1,#0FFH
       MOV TL1,#0C0H
       CPL P3.1
       SJMP LOOP1
       RET
   TAB:DB 0C0H,0F9H,0A4H
       DB 0B0H,099H,092H
       DB 082H,0F8H,080H
       DB 090H
       END

车头灯

哈哈,这么多的人都回了,我敢不回吗?赶快回一个,很好的,我喜欢